Minimal Idle / Incremental Clicking "Game" in R Shiny

gotta_click.R

library(shiny)

ui <- basicPage(
  actionButton("theButton", "gotta click"),
  verbatimTextOutput("theNumber")
)

server <- function(input, output, session) {
  vals <- reactiveValues(counter = 0)
  
  # add 1 to number every second  
  observe({
    invalidateLater(1000 / (input$theButton + 1), session)
    vals$counter <- isolate(vals$counter) + 1
    output$theNumber <- renderText({ vals$counter })
  })
}

# Run the application 
shinyApp(ui = ui, server = server)