使用 shinybs 在闪亮的应用程序中显示文本的弹出窗口/工具提示

Question

有没有办法将弹出窗口或工具提示添加到

output$Text <- renderText({ c("TestText") }) 元素，然后使用 shinyBS?

通过 renderUI 渲染

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)

闪亮BS

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

通常，您可以通过使用其 ID 在任何输入和输出对象上显示工具提示。例如，我在 UI.

中为 ID 为 downloadData 的 downloadButton 添加了工具提示

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

使用 shinybs 在闪亮的应用程序中显示文本的弹出窗口/工具提示

Popover / tooltip for a text in shiny app using shinybs

r

shiny

shinybs

基础闪亮

闪亮BS