Всплывающая подсказка / всплывающая подсказка для текста в блестящем приложении, используя блестящие

Question

Есть ли способ добавить всплывающее окно или всплывающую подсказку к

output$Text <- renderText({ c("TestText") }) элемент, который затем отображается через renderUI, используя блестящий BBS?

Answer 1

Как то так сделать?

База Блестящий

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)

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)

Answer 2

Как правило, вы можете всплывающие подсказки для любого объекта ввода и вывода, используя их идентификатор. Например, я добавил всплывающую подсказку на downloadButton чей идентификатор downloadData, в пользовательском интерфейсе.

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")
)