# NOT RUN {
if (interactive()) {
shinyApp(
ui = fluidPage(
tags$h1("Click the button"),
actionButton(inputId = "success", label = "Launch a success sweet alert"),
actionButton(inputId = "error", label = "Launch an error sweet alert"),
useSweetAlert()
),
server = function(input, output, session) {
observeEvent(input$success, {
sendSweetAlert(
session = session, title = "Success !!", text = "All in order", type = "success"
)
})
observeEvent(input$error, {
sendSweetAlert(
session = session, title = "Error !!", text = "It's broken...", type = "error"
)
})
}
)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab