Mock debounce/throttle.

R/test-module.R

@@ -223,6 +223,10 @@ testModule <- function(module, expr, args, ...) {
 
     session$flush()
   }
+  # Contract is to return Sys.time, which is seconds, not millis.
+  session$now <- function(){
+    timer$getElapsed()/1000
+  }
 
   session$reactlog <- function(logEntry){} # TODO: Needed for mock?
   session$incrementBusyCount <- function(){} # TODO: Needed for mock?

R/timer.R

@@ -116,6 +116,9 @@ MockableTimerCallbacks <- R6Class(
     },
     elapse = function(millis){
       private$time <<- private$time + millis
+    },
+    getElapsed = function(){
+      private$time
     }
   ), private = list(
     time = 0L