R语言全局定义的函数如何访问调用方函数环境中的元素

请先确保已加载data.table包：

library(data.table)

问题根因 #

R采用词法作用域规则：函数查找未在内部定义的自由变量时，优先查找函数定义时的所在环境，而非函数被调用时的执行环境。你定义的f1位于全局环境，全局环境中不存在selected对象，因此调用时会抛出对象未找到的报错。

可行解决方案 #

方案1：显式传参（最推荐，无副作用） #

直接修改f1的定义，将依赖的变量作为参数显式传递，是最稳妥的写法：

# 调整f1定义，增加参数
f1 <- function(selected){
  setDT(mtcars)[cyl == selected, ]
}

# 调用时传入参数
lapply(c("a", "b"), function(x){
  selected <- selection[[x]]
  f1(selected)
})

方案2：临时修改f1的执行环境（适合无法修改f1定义的场景） #

如果不能改动f1的原有定义，可以在调用时临时将f1的环境绑定到当前匿名函数的执行环境：

lapply(c("a", "b"), function(x){
  selected <- selection[[x]]
  # 临时将f1的环境设置为当前调用环境
  environment(f1) <- current_env()
  f1()
})

注意：该写法会修改全局环境下f1的环境属性，多线程/并行场景下不推荐使用，避免出现变量冲突。

方案3：指定data.table求值环境（针对本场景的适配写法） #

由于你的报错来自data.table[i]参数的惰性求值逻辑，也可以直接在f1内部指定变量的查找环境：

# 修改f1，显式从父调用环境取selected变量
f1 <- function(){
  setDT(mtcars)[cyl == get("selected", envir = parent.frame()), ]
}

lapply(c("a", "b"), function(x){
  selected <- selection[[x]]
  f1()
})

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