在 Shiny 中将工具提示添加到 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)

在我的研究过程中，我找到了这个解决方案，但 bsModel。此外，还有一个基于 java-script 的程序 here。我知道这两种解决方案都适用于 tabpanel，但我相信这是同一个问题，即 navbarMenu 和 tabpanel 没有 id。
我是统计学家，我没有 HTML 或 java-script 的背景来重写选项卡标题或 navbarMenu 的属性。我希望我能清楚地表达我的问题。在此先感谢您的宝贵时间和帮助。

Answer 1

您可以使用 HTML wenn 传递选项卡的标题。在这种情况下，我只是将标题放在一个范围内，并添加了属性 title，即属性 HTML 使用 mouse-overs 的默认值。对我来说，尝试将它添加到 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)

希望对您有所帮助！

在 Shiny 中将工具提示添加到 navbarMenu

Add Tooltip to navbarMenu in Shiny

r

shiny

shinyjs

shinybs