Files
shiny/inst/examples/11_timer/server.R
2013-03-25 11:26:16 -07:00

6 lines
153 B
R

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