R Shiny valueBox with popover/tooltip

Question

我嘗試從 shinydashboard 為 valueBox 制作彈出框/工具提示，但到目前為止沒有任何效果。

我嘗試使用shinyBS，例如popify function，但隨后出現錯誤警告：tagAssert 中的錯誤：預期object 與class 'shi

當我使用 addTooltip 或 addPopover function 時，我沒有收到任何錯誤，但是當我在 valueBox 上使用 hover 時，什么也沒有出現。 還有什么建議嗎？

library(shinydashboard)
library(shinyBS)

ui <- dashboardPage(
  dashboardHeader(title = 'Title', disable = TRUE),
  
  dashboardSidebar(),
  
  dashboardBody(
    
      valueBoxOutput("TestBox", width = NULL)))

server <- function(input, output, session) {
  
output$TestBox <- renderValueBox({
  
  popify(
    valueBox(
      value = "50 %",
      subtitle = "Test",
      color = "black")
  , title = "TestTitle", content = "TestContent", placement = "bottom", trigger = "hower", options = NULL)
})
# addPopover(session, id = "TestBox", title = "TestTitle", content = "TestContent", placement = "bottom", trigger = "hover", options = NULL)
}


shinyApp(ui = ui, server = server)

Answer 1

您可以使用bsTooltip將工具提示添加到 Shiny 輸入或 output：

這是基於您提供的內容的最小示例：

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

當您在框上方使用 hover 時，您會看到工具提示出現在其底部。

我建議你檢查這個