Open wilcar opened 4 years ago
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) shinyApp(ui = ui, server = server)
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) shinyApp(ui = ui, server = server)