r-addTooltip与动态标题

Question

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

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)

在我的主应用程序中(太大了，无法在这里发布(，工具提示正在工作和更新，但只有每隔一次更新-在滑块的每一次更改中，工具提示都不会显示，但其他时候它会工作，具有正确的动态值。这可能与这个问题有关，这个问题可能是一个bug。

然而，当我试图为这个问题创建一个可复制的例子时，我甚至根本无法让它发挥作用。

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