Files
shiny/inst/examples/11_timer/server.R
2016-04-05 15:23:23 -05:00

7 lines
159 B
R

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