if (interactive()) {
shiny::shinyApp(
ui = shiny::fluidPage(
useShinyjs(), # Set up shinyjs
shiny::actionButton("btn", "Click me")
),
server = function(input, output, session) {
shiny::observeEvent(input$btn, {
# Run JS code that simply shows a message
runjs("var today = new Date(); alert(today);")
})
}
)
}
Run the code above in your browser using DataLab