R Shiny : Present a ShinyBS Modal Popup on page visit (no user action)

Question

我之前在我的代码中成功使用了 bsModal。但是，默认情况下，我似乎无法在用户访问应用程序的第一页时显示模式弹出窗口。我认为这样的事情会起作用，但不会。知道如何在页面访问时触发 bsModal 吗？

library(shiny)
library(shinyBS)

ui <- fluidPage(
  mainPanel(
    bsModal(id = 'startupModal', title = 'Dum Dum', trigger = '',
            size = 'large', p("here is my mumbo jumbo")),
    width = 12
  )
)

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

}

shinyApp(ui = ui, server = server)

我只需要在用户访问应用程序时用一条消息提醒他们，然后允许他们关闭模态弹出窗口并自由导航应用程序的其余部分。我正在使用 Shinydashboard。所以，最终，这必须与之配合。

Answer 1

您可以使用 toggleModal从服务器手动触发弹出窗口。

library(shiny)
library(shinyBS)

ui <- fluidPage(
  mainPanel(
    bsModal(id = 'startupModal', title = 'Dum Dum', trigger = '',
            size = 'large', p("here is my mumbo jumbo")),
    width = 12
  )
)

server <- function(input, output, session) {
  toggleModal(session, "startupModal", toggle = "open")
}

shinyApp(ui = ui, server = server)