R 闪亮应用程序中的工具提示在哪里丢失？

从

我正在为我的shinyApp编写代码（使用golem包和模块-不确定它是否重要）。我正在为按钮添加工具提示，该按钮没有出现在我的应用程序中，但在我尝试创建为reprex的应用程序中效果非常好。我找不到这个问题的根源。可能是模块通信有问题

下面是我制作reprex的尝试（显然不是reprex）。简而言之，模体。。。为仪表板页（）创建一个框。框中包含shinyWidgets:：actionBttn（）。因为它没有工具提示选项，所以我使用shinyBS:：tipify（）添加工具提示。在这里，它工作得很好，但当我复制粘贴到我的应用程序，它返回按钮，但没有工具提示。我还尝试在相同和不同的选项卡上显示其他对象，但工具提示仍在途中丢失

有人知道哪里出了问题吗

library(shiny)
library(shinyBS)
library(shinyWidgets)

mod_body_ui <- function(id){
    ns <- NS(id)
    
    tab_item <- shinydashboard::tabItem(
        tabName = "test_tab",
        fluidRow(
            shinydashboardPlus::box(
                title = "Test box",
                width = 4,
                collapsible = TRUE,
                icon = shiny::icon("plus"),
                
                htmlOutput(outputId = ns("bttns"))
                
            )
        )
    )
    
    return(tab_item)
    
}

mod_body_server <- function(id){
    moduleServer( id, function(input, output, session){
        ns <- session$ns
        
        output$bttns <- renderUI({
            btn_remove <- shinyBS::tipify(
                shinyWidgets::actionBttn(
                    inputId = ns("remove_selected"),
                    label = shiny::icon("minus"),
                    style = "material-flat",
                    size = "sm"
                ),
                title = "Remove selected from the library",
                placement = "right"
            )

            return(btn_remove)
        })
        
        
    })
}

ui <- function(request) {
    tagList(
        
        shinydashboardPlus::dashboardPage(
            title = "Test",
            md = FALSE,
            scrollToTop = TRUE,
            header = shinydashboardPlus::dashboardHeader(title = "Header"),
            sidebar = shinydashboardPlus::dashboardSidebar(
                shinydashboard::menuItem(text = "Test",
                                         tabName  = "test_tab")
            ),
            body = shinydashboard::dashboardBody(
                id = "body",
                shinydashboard::tabItems(
                    mod_body_ui("body_ui")
                )
            )
        )
    )
}

server <- function(input, output, session) {
    mod_body_server("body_ui")
    
    
}

shinyApp(ui, server)

UI/Server (define dashbosrdPage):
   module header
   module sidebar
   module body
      module tab1
      module tab2
           module box1
           module box2