Add example app for invalidateLater

rstudio · Mar 12, 2014 · 6fe4f3b · 6fe4f3b
1 parent 08bfa79
commit 6fe4f3b
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 0 deletions.
diff --git a/invalidatelater/DESCRIPTION b/invalidatelater/DESCRIPTION
@@ -0,0 +1,7 @@
+Title: Current Time
+Author: Joe Cheng <joe@rstudio.com>
+AuthorUrl: http://www.rstudio.com/
+License: MIT
+DisplayMode: Showcase
+Tags: invalidatelater
+Type: Shiny
diff --git a/invalidatelater/server.R b/invalidatelater/server.R
@@ -0,0 +1,13 @@
+options(digits.secs = 3) # Include milliseconds in time display
+
+shinyServer(function(input, output, session) {
+
+  output$currentTime <- renderText({
+    # invalidateLater causes this output to automatically
+    # become invalidated when input$interval milliseconds
+    # have elapsed
+    invalidateLater(as.integer(input$interval), session)
+
+    format(Sys.time())
+  })
+})
diff --git a/invalidatelater/ui.R b/invalidatelater/ui.R
@@ -0,0 +1,13 @@
+shinyUI(basicPage(
+  h4(
+    "The time is ",
+    # We give textOutput a span container to make it appear
+    # right in the h4, without starting a new line.
+    textOutput("currentTime", container = span)
+  ),
+  selectInput("interval", "Update every:", c(
+    "5 seconds" = "5000",
+    "1 second" = "1000",
+    "0.5 second" = "500"
+  ), selected = 1000, selectize = FALSE)
+))