在Shiny中添加工具提示到tabPanel

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 侧边栏内容
    ),
    mainPanel(
      tabsetPanel(
        tabPanel(
          title = "Tab 1",
          tags$div(
            title = "这是Tab 1的工具提示",
            "这是Tab 1的内容"
          )
        ),
        tabPanel(
          title = "Tab 2",
          tags$div(
            title = "这是Tab 2的工具提示",
            "这是Tab 2的内容"
          )
        )
      )
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui, server)