executeElapsed gets stuck returning TRUE even when nothing was executed

Fixes #1278
rstudio · Aug 10, 2016 · 679821b · 679821b
1 parent d1e4483
commit 679821b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/timer.R b/R/timer.R
@@ -56,7 +56,7 @@ TimerCallbacks <- R6Class(
     },
     executeElapsed = function() {
       elapsed <- takeElapsed()
-      if (length(elapsed) == 0)
+      if (nrow(elapsed) == 0)
         return(FALSE)
 
       for (id in elapsed$id) {