如何在不同于定义环境的环境中调用R函数？

我来帮你搞定这个在指定环境执行R函数的需求！你遇到的核心问题其实是R的词法作用域规则——函数内部的自由变量会优先在它的定义环境里查找，而不是调用时的环境。所以直接用eval(quote(f()), envir=env)是行不通的，因为f里的x还是会去它定义时的环境（比如全局环境）找，而不是你创建的env。

下面给你几个实用的解决方案，都能实现你想要的call_on_env功能：

方案一：临时修改函数环境（通用且安全） #

这个方法会复制原函数，临时把复制后的函数的环境改成你指定的env，执行完不会影响原函数的环境，非常稳妥：

call_on_env <- function(func, env, ...) {
  # 复制函数，避免修改原函数的环境
  temp_func <- func
  # 将复制后的函数绑定到目标环境
  environment(temp_func) <- env
  # 执行函数，支持传入额外参数
  temp_func(...)
}

# 测试你的示例
f <- function() { x + 1 }
env <- new.env()
assign("x", 3, envir = env)

call_on_env(f, env)
#> [1] 4

# 带参数的函数也能正常工作
f2 <- function(a) { x + a }
call_on_env(f2, env, 2)
#> [1] 5

方案二：直接执行函数体（适用于无参数简单函数） #

如果你的函数没有参数，且逻辑简单，也可以直接提取函数体在目标环境中执行：

call_on_env <- function(func, env) {
  eval(body(func), envir = env)
}

# 测试
call_on_env(f, env)
#> [1] 4

不过这个方法局限性比较大，如果函数有参数、或者包含复合语句（比如if、for），就不太好用了。

方案三：用eval+substitute实现动态绑定 #

这种方式利用substitute展开函数调用，再通过eval的参数强制在目标环境中查找变量，模拟动态作用域的效果：

call_on_env <- function(func, env, ...) {
  eval(substitute(func(...)), envir = env, enclos = env)
}

# 测试
call_on_env(f, env)
#> [1] 4
call_on_env(f2, env, 2)
#> [1] 5

这三个方案里，我最推荐方案一，因为它通用性强，还不会修改原函数的环境，非常安全。

内容的提问来源于stack exchange，提问作者user6948837