RShiny中fluidRow内框上的悬停功能

我有一个非常巨大的闪亮应用程序，其中我有多个fluidRow，每个fluidRow都有多个框元素，我想在fluidRow中的所有框元素上创建一个悬停函数

    library(shiny)
# library(rintrojs)

ui <- shinyUI(fluidPage(


  fluidRow(

    box(
      # h3(strong("OVERALL")),
      title = #h3(strong("OVERALL")),
        "OVERALL",
      width = 12,
      status = "primary",
      target = 'row',
      solidHeader = TRUE,
      align='center',
      collapsible = FALSE,
      DT::dataTableOutput("tab_PF1")
    )
  )
))

server <- shinyServer(function(input, output) {#Server file end

})

shinyApp(ui = ui, server = server)

库（闪亮）
#图书馆（rintrojs）
ui是的，可以使用库
shinyBS
，因为您可以使用其功能
BSTooltip
或
addToolTip
，它们分别在输入和输出以及ui和服务器中工作

b工具提示（标题，…）
在UI中

在服务器中添加工具提示（会话、标题等）


可用于工具提示：悬停、单击、双击