apps/webinar_2/code/05-actionButton.R

In rappster/shinyref: What the package does (short line)

# 05-actionButton

library(shiny)

ui <- fluidPage(
  actionButton(inputId = "clicks", 
    label = "Click me")
)

server <- function(input, output) {
  observeEvent(input$clicks, {
    print(as.numeric(input$clicks))
  })
}

shinyApp(ui = ui, server = server)