R Shiny tooltip css没有被应用

Question

我正在尝试向 R Shiny 应用程序添加工具提示。我使用 bsplus 而不是 shinyBS 来实现它，因为它与包 shinyWidgets 有明显的冲突。

我发现我无法设置工具提示的样式（它们非常小）。我发现的一切都与使用 shinyBS 的人有关——但这些解决方案在使用 bsplus 时不起作用。

下面提供了一个简单的表示。谁能告诉我在设置工具提示样式方面我做错了什么？

谢谢！

library(shiny)
library(bsplus)

ui <-

  fluidPage(
    bsplus::use_bs_tooltip(),

    tags$style(HTML(".tooltip .tooltiptext { visibility: hidden; background-color: blue; }
                    .tooltip:hover .tooltiptext { visibility: visible; }")),

    sidebarLayout(

      sidebarPanel(

        numericInput(inputId = "id_num", label = "Test numeric input", value = 0.5, min = 0, max = 1, step = 0.05) %>%
          bs_embed_tooltip("My tooltip text", delay = "dseconds(0)", placement = "right")

      ),

      mainPanel()
    )
  )


server <- function(input, output) { }

shinyApp(ui = ui, server = server)

Answer 1

您忘记在 UI 中添加 bsplus::use_bs_tooltip()，将其添加到您的 fluidpage 中

更新

那是你的系统或浏览器问题，我运行上面的代码没有错误。