function(input, output, session) {
output$currentTime <- renderText({
invalidateLater(1000, session)
paste("The current time is", Sys.time())
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.