Shiny: Truck Button Clicks

track_button_clicks

## reactiveValues makes a list of values that are reactive that can be altered 
## by observe event.  These reactives are then acted on in the server.R and
## passed back to the ui.R

library(shiny)

ui <- fluidPage(
  actionButton(inputId = "clicker", label = "Next"),
  textOutput("buttonval")
)

server <- function(input, output) {

  rv <- reactiveValues(data = 1)

  observeEvent(input$clicker, { rv$data <- rv$data + 1 })

  output$buttonval <- renderText({ 
    paste0('Click #', rv$data) 
  })
}

shinyApp(ui = ui, server = server)