inst/examples/11_timer/server.R

function(input, output, session) {
  output$currentTime <- renderText({
    invalidateLater(1000, session)
    paste("The current time is", Sys.time())
  })
}
ymd526442121/Rproject_shiny documentation built on May 4, 2019, 5:31 p.m.