2

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

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

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

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

ui <-仪表板页面（
  仪表板标题（标题 = '标题'，禁用 = TRUE），
  
  仪表板边栏（），
  
  仪表板主体（
    
      valueBoxOutput("TestBox", width = NULL)))

服务器 <- 功能（输入，输出，会话）{
  
输出$TestBox <- renderValueBox({
  
  弹出（
    值框（
      值 = "50 %",
      subtitle = "测试",
      颜色=“黑色”）
  ，标题=“TestTitle”，内容=“TestContent”，放置=“底部”，触发器=“hower”，选项= NULL）
})
# addPopover（会话，id = “TestBox”，title = “TestTitle”，content = “TestContent”，placement = “bottom”，trigger = “hover”，options = NULL）
}


闪亮应用（用户界面 = 用户界面，服务器 = 服务器）
4

1 回答 1

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

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

我建议你检查这个

于 2020-06-29T00:44:56.580 回答