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