shinyBS的备选案文：：popify with Bootstrap 4

Question

我在我闪亮的应用程序中使用了Bootstrap 4，在bslib包的帮助下。然后用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"),
    bsPopover(
        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)

​

​