带有弹出框/工具提示的 R Shiny valueBox

Posted 2023-02-18

【中文标题】带有弹出框/工具提示的 R Shiny valueBox

【英文标题】：R Shiny valueBox with popover/tooltip

【发布时间】：2020-10-19 02:16:06

【问题描述】：

我尝试从 shinydashboard 为 valueBox 制作弹出框/工具提示，但到目前为止没有任何效果。

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

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

库（闪亮仪表板）
图书馆（闪亮的BS）

ui 
    

【参考方案1】：

您可以使用bsTooltip 为闪亮的输入或输出添加工具提示：

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

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

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

我建议你检查this