Files
shiny/inst/examples/11_timer/server.R
2013-10-21 21:20:41 -05:00

7 lines
172 B
R

shinyServer(function(input, output, session) {
output$currentTime <- renderText({
invalidateLater(1000, session)
paste("The current time is", Sys.time())
})
})