CODEWITHSUNDEEP
rshinyshinybs
vladli
vladli

Reputation: 1573

Popover / tooltip for a text in shiny app using shinybs

Is there a way to add popover or a tooltip to an

output$Text <- renderText({ c("TestText") }) element, which is then rendered through renderUI, using shinyBS?

Upvotes: 4

Views: 5881

Answers (2)

lokxs
lokxs

Reputation: 321

In general you can tooltips on any Input and Output object by using their id. For example, I added a tooltip on a downloadButton whose id is downloadData, in the UI.

sidebarPanel(
  downloadButton("downloadData",
    label = "Save and check the Employee List"),
  bsTooltip("downloadData",
     'This is the tooltip where you can add double quotes "like this"'),
      placement = "bottom", trigger = "hover")
)

Upvotes: 2

Pork Chop
Pork Chop

Reputation: 29417

Something like this do?

Base Shiny

rm(list=ls())
library(shiny)

ui <- basicPage(
  headerPanel("Tooltip test"),
  mainPanel(
    column(3,tags$div(title="Tooltip works",verbatimTextOutput("Text")))
  )
)

server <- shinyServer(function(input, output,session) {
  
  output$Text <- renderText({ c("TestText") })
  
})
shinyApp(ui = ui, server = server)

enter image description here

ShinyBS

rm(list=ls())
library(shiny)
library(shinyBS)

ui <- basicPage(
  headerPanel("Tooltip test"),
  bsTooltip("Text", "Tooltip works", placement = "bottom", trigger = "hover",
            options = NULL),
  mainPanel(
    column(3,verbatimTextOutput("Text"))
  )
)

server <- shinyServer(function(input, output,session) {
  
  output$Text <- renderText({ c("TestText") })
  
})
shinyApp(ui = ui, server = server)

enter image description here

Upvotes: 11

Related Questions