if (interactive()) {
library(shiny)
shinyApp(
ui = fluidPage(
modalDialogUI("mdl", "Hello")
),
server = function(input, output, session) {}
)
library(shiny)
shinyApp(
ui = fluidPage(
modalDialogUI("mdl", "Hello", button = NULL),
hr(),
modalButtonUI("mdl", "Open Modal From Here")
),
server = function(input, output, session) {}
)
}
Run the code above in your browser using DataLab