Timer
by RStudio, Inc.

show with app
function(input, output, session) {
  output$currentTime <- renderText({
    invalidateLater(1000, session)
    paste("The current time is", Sys.time())
  })
}
fluidPage(
  textOutput("currentTime")
)
Code license: MIT