3

以前、コードで 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 を使用しています。したがって、最終的には、これはそれと連携する必要があります。

4

2 に答える 2

6

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)
于 2016-12-06T01:59:04.293 に答える