Nothing
library(shiny)
library(shinyToastify)
shinyServer(
function(input, output, session){
toastTransitions <- c(
"Zoom", "Bounce", "Flip", "Slide"
)
observeEvent(input[["btn"]], {
toastTransition <- toastTransitions[1L + (input[["btn"]] %% 4L)]
showToast(
session,
input,
text = paste0(toastTransition, " transition"),
type = "success",
transition = tolower(toastTransition),
autoClose = 3000,
bodyClassName = "bodystyle"
)
})
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.