Better reactivePoll example. Closes #1678

man/reactivePoll.Rd

@@ -57,9 +57,22 @@ will be executed in a reactive context; therefore, they may read reactive
 values and reactive expressions.
 }
 \examples{
-# Assume the existence of readTimestamp and readValue functions
 function(input, output, session) {
-  data <- reactivePoll(1000, session, readTimestamp, readValue)
+
+  data <- reactivePoll(1000, session,
+    # This function returns the time that log_file was last modified
+    checkFunc = function() {
+      if (file.exists(log_file))
+        file.info(log_file)$mtime[1]
+      else
+        ""
+    },
+    # This function returns the content of log_file
+    valueFunc = function() {
+      read.csv(log_file)
+    }
+  )
+
   output$dataTable <- renderTable({
     data()
   })