Cleaner method of getting execCount

saurfang · Aug 29, 2014 · 3f34030 · 3f34030
1 parent 11dfa3d
commit 3f34030
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/reactives.R b/R/reactives.R
@@ -460,8 +460,8 @@ is.reactive <- function(x) inherits(x, "reactive")
 
 # Return the number of times that a reactive expression or observer has been run
 execCount <- function(x) {
-  if (is.function(x))
-    return(environment(x)$.execCount)
+  if (is.reactive(x))
+    return(attr(x, "observable")$.execCount)
   else if (inherits(x, 'Observer'))
     return(x$.execCount)
   else