make sure function can be found (in baseenv())

yihui · Apr 29, 2024 · abd2472 · abd2472
1 parent 15d5447
commit abd2472
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/cache.R b/R/cache.R
@@ -407,7 +407,7 @@ find_globals = function(code, envir = parent.frame()) {
     fun = function() {}
     body(fun) = code
   } else {
-    fun = eval(parse_only(c('function(){', code, '}')), envir)
+    fun = eval(parse_only(c('function(){', code, '}')), baseenv())
   }
   obj = codetools::findGlobals(fun)
   intersect(obj, ls_all(envir, TRUE))