ui <- shiny::fluidPage(
useOverlay()
# further UI elements here . . .
)
server <- function(input, output) {
# server code here . . .
}
if (interactive()) {
shiny::shinyApp(ui, server)
}
Run the code above in your browser using DataLab