if (interactive()) {
shiny::shinyApp(
ui = shiny::fluidPage(
useShinyjs(), # Set up shinyjs
shiny::actionButton("btn", "Click me"),
shiny::p(id = "element", "Watch what happens to me")
),
server = function(input, output, session) {
shiny::observeEvent(input$btn, {
# Change the following line for more examples
text("element", paste0("The date is ", date()))
})
}
)
}
# The shinyjs function call in the above app can be replaced by
# any of the following examples to produce similar Shiny apps
text("element", "Hello!")
text("element", " Hello!", TRUE)
text("element", "<strong>bold</strong> that was achieved with HTML")
local({val <- "some text"; text("element", val)})
text(id = "element", add = TRUE, text = input$btn)
Run the code above in your browser using DataLab