带有动态标题的 addTooltip答案

【问题标题】：addTooltip with dynamic title带有动态标题的 addTooltip
【发布时间】：2019-05-20 01:45:43
【问题描述】：

我有一个闪亮的应用程序，带有一个输入滑块和一个输出表。我想在输出表上放置一个工具提示，其中包含来自输入滑块的输入的文本，即工具提示文本随着滑块的变化而动态更新。我无法让它工作。

library(shiny)
library(shinyBS)


ui <- fluidPage(
  sliderInput(inputId="inputValue",label="Input Value", 0,100, value=90, step=1),

  tableOutput(outputId="outputTableId")
)


server <- function(input, output, session) {
  renderTables <- observe({
    browser()
    output$outputTableId<-renderTable({
      data.frame("Output" = c(1,2,3) * input$inputValue)  
    })
    addTooltip(session, id="outputTableId", title=paste0("Tooltip text with dynamic ",input$inputValue,"% prediction interval"), placement="right")

  })


}

shinyApp(ui = ui, server = server)

在我的主应用程序中（太大，无法在此处发布），工具提示正在工作和更新，但只有每隔一次更新 - 在滑块的每一次更改时，工具提示都不会显示，但其他时候它可以使用正确的动态值。这可能与这个question 有关，这可能是一个错误。

但是，当尝试为这个问题创建一个可重现的示例时，我什至无法让它工作。

【问题讨论】：

标签： r shiny shinybs

【解决方案1】：

嗯，不明显。这是我找到的方法：

library(shiny)
library(shinyBS)

ui <- fluidPage(
  sliderInput(inputId="inputValue", label="Input Value", 0,100, value=90, step=1),
  div(
    id = "container",
    style = "display:inline-block",
    uiOutput("table")
  )
)


server <- function(input, output, session) {
  output$outputTableId <- renderTable({
    data.frame("Output" = c(1,2,3) * input$inputValue)  
  })

  output$table <- renderUI({
    tipify(
      tableOutput(outputId = "outputTableId"),
      title=paste0("Tooltip text with dynamic ", input$inputValue, "% prediction interval"),
      placement = "right",
      options = list(container = "#container"))
  })

}

shinyApp(ui = ui, server = server)

【讨论】：