Only inject once, not once per TLE

r-lib · Jun 18, 2024 · 7393bb0 · 7393bb0
1 parent 2d498ef
commit 7393bb0
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/eval.R b/R/eval.R
@@ -67,6 +67,7 @@ evaluate <- function(input,
   if (is.null(enclos)) {
     enclos <- if (is.list(envir) || is.pairlist(envir)) parent.frame() else baseenv()
   }
+  local_inject_funs(envir)
 
   if (new_device) {
     # Start new graphics device and clean up afterwards
@@ -238,8 +239,6 @@ evaluate_call <- function(call,
     timing_fn <- function(x) {x; NULL};
   }
 
-  local_inject_funs(envir)
-
   user_handlers <- output_handler$calling_handlers
 
   multi_args <- length(formals(value_handler)) > 1