在 Shiny 中将 Tooltip 添加到 navbarMenu

Question

我想在 Shiny 应用中为 navbarMenu 添加一个工具提示。类似的问题问here，但没有答案。这是我的可重现代码

library(shiny)
library(shinyBS)

ui <- shinyUI(fluidPage(
       sidebarLayout( 
           sidebarPanel(),

           mainPanel(tabsetPanel(

             navbarMenu("Tab1",bsTooltip(id="Tab1", title="Short description  for the tab", trigger = "hover"), 
                 tabPanel("Tab1.1"),       
                 tabPanel("Tab1.2")),

            tabPanel("Tab2",tabsetPanel(
                       tabPanel("Tab2.1"),       
                       tabPanel("Tab2.2"))),

            tabPanel("Tab3",tabsetPanel(
                       tabPanel("Tab3.1"),
                       tabPanel("Tab3.2"),
                       tabPanel("Tab3.3")))
)))))
server <- function(input, output) {}
shinyApp(ui = ui, server = server)

在我的研究过程中，我发现了这个解决方案 R Shiny: Use navbarPage with bsModal by shinyBS，但适用于 bsModel。 此外，还有一个基于 java-script 的程序here。我知道这两种解决方案都适用于 tabpanel，但我相信这是同一个问题，即 navbarMenu 和 tabpanel 没有 id。
我是统计学家，我没有 HTML 或 java 脚本背景来重写选项卡标题或 navbarMenu 的属性。 我希望我能清楚地表达我的问题。提前感谢您的时间和善意的帮助。

Answer 1

您可以使用 HTML wenn 传递选项卡的标题。在这种情况下，我只是将标题放在一个跨度中并添加属性title这是HTML使用默认鼠标悬停的属性。对我来说，尝试将它添加到 ShinyBS 上要简单得多。

library(shiny)
library(shinyBS)

ui <- shinyUI(fluidPage(
  sidebarLayout( 
    sidebarPanel(),

    mainPanel(tabsetPanel(

      navbarMenu(span("Tab1",title="Short description  for the tab" ),
                 tabPanel("Tab1.1"),       
                 tabPanel("Tab1.2")),

      tabPanel("Tab2",tabsetPanel(
        tabPanel("Tab2.1"),       
        tabPanel("Tab2.2"))),

      tabPanel("Tab3",tabsetPanel(
        tabPanel("Tab3.1"),
        tabPanel("Tab3.2"),
        tabPanel("Tab3.3")))
    )))))
server <- function(input, output) {}
shinyApp(ui = ui, server = server)

希望这会有所帮助！