r - 将鼠标移离图标后，在闪亮中禁用 popify

Question

在下面的应用程序中，当用户单击 i 图标时，才会显示该框。这可以。但是只有当用户再次单击 i 图标时，该框才会消失。我们可以禁用它吗？就像它应该在用户单击 i 图标时出现，但在鼠标移开时应该消失？

library(shiny)
library(shinyBS)

ui <- fluidPage(
  titlePanel("Old Faithful Geyser Data"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),
    
    mainPanel(
      htmlOutput("pop")
      
    )
  )
)

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

  output$pop <- renderUI({
    h4(style="margin-top:10px;display:initial;","topic",popify(el = icon(name = "info-circle", lib = "font-awesome"), title = "",
                                                               content = paste0("aims"
                                                               ),placement="right",trigger = "click",options = list(container = "body")))
  })
  
}

shinyApp(ui = ui, server = server)

标签： rshiny