# 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"
)
),
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