R 闪亮的值框与弹出框/工具提示

Question

我尝试从闪亮的仪表板为valueBox制作一个弹出框/工具提示，但到目前为止没有任何效果。

我尝试使用 shinyBS，例如 popify 函数，但随后出现错误警告：tagAssert 中的错误：预期具有类"shiny.tag"的对象。

当我使用 addTooltip 或 addPopover 函数时，我没有收到任何错误，但当我将鼠标悬停在 valueBox 上时，什么也没显示。还有什么建议吗？

图书馆(闪亮仪表板( 图书馆(闪亮BS( UI <- dashboardPage( dashboardHeader(title = 'Title'， disable = TRUE(， dashboardSidebar((， 仪表板正文( valueBoxOutput("TestBox"， width = NULL((( 服务器<- 函数(输入、输出、会话( { output$TestBox <- renderValueBox({ popify( 值框( 值 = "50 %"， 字幕 = "测试"， 颜色 ="黑色"( ，标题 = "测试标题"，内容 = "测试内容"，放置 = "底部"，触发器 = "hower"，选项 = 空( }) # addPopover(session， id = "TestBox"， title = "TestTitle"， content = "TestContent"， placement = "bottom"， trigger = "hover"， options = NULL( } ShinyApp(ui = ui， server = server(

Answer 1

您可以使用bsTooltip将工具提示添加到 Shiny 输入或输出：

这是基于您提供的内容的最小示例：

library(shinydashboard)
library(shinyBS)
ui <- dashboardPage(
dashboardHeader(title = 'Title', disable = TRUE),

dashboardSidebar(),

dashboardBody(
valueBoxOutput("TestBox", width = 10),
bsTooltip("TestBox", "you can choose whatever you want",
"bottom", ),
)
)
server <- function(input, output, session) {

output$TestBox <- renderValueBox({
valueBox( value = "50 %",
subtitle="Test",
color = "black")
})

}

当您将鼠标悬停在框上时，您会看到工具提示出现在其底部。

我建议您检查一下