Added eval_when_ready to dev toolbox

beauchamplab · Oct 23, 2019 · 3b3515a · 3b3515a
1 parent 53bc4ac
commit 3b3515a
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/inst/template/inst/tools/funcs_reactives.R b/inst/template/inst/tools/funcs_reactives.R
@@ -94,6 +94,20 @@ reactiveValues <- function(...){
 }
 
 
+eval_when_ready <- function(f){
+  if(is_local_debug()){
+    env = parent.frame()
+    # TODO what to do?
+    tryCatch({
+      f(env)
+    }, error = function(e){
+      cat2(e)
+    })
+  }else{
+    eval_when_ready = get('eval_when_ready', parent.env(parent.env(..param_env)))
+    eval_when_ready(f)
+  }
+}