if (interactive()) {
library(shiny)
library(standby)
ui <- fluidPage(
useBootBox(), # include dependencies
actionButton(inputId = "btn",
label = "BootBox Demo")
)
server <- function(input, output, session) {
observeEvent(input$btn, {
# display modal
bootBox("Hey there!", "Thank you for exploring standby!")
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab