shinyBS Popover在未使用bsButton（）的情况下无法工作

我正在与

shinyBS

-popopers在

insertUI（）

中的一种奇怪行为作斗争。似乎只有在某个地方包含

bsButton（）

时才会添加popover

您可以使用下面的示例。只要您取消对任何

bsButton（…）

的注释，popover就会工作

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

# UI ---------------------------------------------------------------------------
ui <- basicPage(
    actionButton("show", "Create Input"),
    # uncomment me!
    # shinyBS::bsButton("id_button1", "A Button"),
    fluidRow(
        tags$div(id = 'placeholder',
                 style = "min-height: 400px;")
    )
)

# Server -----------------------------------------------------------------------
server <- function(input, output, session) {

    # insert checkbox when clicked
    observeEvent(input$show, {
        insertUI(selector = '#placeholder',
                 ui = tags$div(id = "id_div",
                               # uncomment me!
                               # shinyBS::bsButton("id_button2", "A Button"),
                               shinyWidgets::prettyCheckbox(
                                   inputId = "id_checkbox",
                                   label = "Click Me!"
                               )),
                 immediate = TRUE)

        addPopover(session, "id_div", "Hello", "Stranger")
    })
}

shinyApp(ui, server)

库（shinyBS）
图书馆（闪亮）
图书馆（shinyWidgets）
#用户界面---------------------------------------------------------------------------
用户界面