使用 Bootstrap 4 替代 shinyBS::popify

Question

在bslib package 的幫助下，我在我的 Shiny 應用程序中使用了 Bootstrap 4。 然后用shinyBS::popify制作的彈出框不起作用。 是否有替代方案或使它們起作用的方法？

library(shiny)
library(shinyBS)
library(bslib)

ui <- fluidPage(
  theme = bs_theme(version = 4, bootswatch = "united"),
  popify(
    bsButton("pointlessButton", "Button", style = "primary", size = "large"),
    "A Pointless Button",
    "This button is <b>pointless</b>. It does not do <em>anything</em>!"
  )
)

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

shinyApp(ui, server)

Answer 1

您可以嘗試spsComps ，它適用於 BS4

library(shiny)
library(shinyBS)
library(bslib)
library(spsComps)
ui <- fluidPage(
    theme = bs_theme(version = 4, bootswatch = "united"),
    bsHoverPopover(
        bsButton("pointlessButton", "Button", style = "primary", size = "large"),
        "A Pointless Button",
        "This button is <b>pointless</b>. It does not do <em>anything</em>!",
        "bottom", html = T
    )
)

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

shinyApp(ui, server)