Use bquote

r-lib · Aug 21, 2024 · 8ae1af2 · 8ae1af2
1 parent e615901
commit 8ae1af2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/conditions.R b/R/conditions.R
@@ -54,7 +54,7 @@ sanitize_call <- function(cnd) {
   if (identical(cnd$call, quote(withVisible(do)))) {
     cnd$call <- NULL
   }
-  if (identical(cnd$call, quote(eval(substitute(context()), envir)))) {
+  if (identical(cnd$call, quote(eval(bquote(.(context)()), envir)))) {
     cnd$call <- NULL
   }
 

diff --git a/R/evaluate.R b/R/evaluate.R
@@ -172,7 +172,7 @@ evaluate <- function(input,
 
   # Here we use `eval()` to create an unwinding scope for `envir`, using
   # an inlined call to `context()`.
-  eval(substitute(context()), envir)
+  eval(bquote(.(context)()), envir)
   watcher$capture_output()
 
   # Always capture last plot, even if incomplete