R未应用工具提示css

我正在尝试将工具提示添加到R闪亮的应用程序中。我使用bsplus而不是shinyBS来实现这一点，因为它与shinyWidgets包明显冲突

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

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

谢谢

库（闪亮）
图书馆（bsplus）
ui%
嵌入工具提示（“我的工具提示文本”，delay=“dseconds（0）”，placement=“right”）
),
主面板（）
)
)
服务器您忘记添加
bsplus:：使用工具提示（）
在UI中，将其添加到
fluidpage中

更新

这是您的系统或浏览器的问题，我没有错误运行上述代码。
抓得好-是的，我抓到了。但是，这对css不应用没有帮助…我不相信这是-工具提示没有像css中指定的那样是蓝色的，因为您有错误的css选择器，需要是“.tooltip.tooltip-inner”
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)