R语言子函数无法获取父函数循环变量i的解决方案咨询

咱们先搞清楚报错的原因：R的作用域规则是，函数会先在自己的本地环境里找变量，找不到就往上找全局环境，但不会自动回溯到调用它的父函数的执行环境里。你的child.fxn在找i的时候，压根找不到parent.fxn循环里的那个i，自然就报错了。下面给你几种可行的解决办法，按推荐程度排序：

1. 显式传递循环变量（最推荐） #

这是最清晰、最不容易出问题的方案，直接把循环变量i作为参数传给子函数，代码可读性拉满：

parent.fxn = function(X) { 
  for (i in 1:3) child.fxn(X, i) 
}
child.fxn = function(X, idx) { 
  return(X[idx]) 
}

# 测试执行
parent.fxn(1:10)
# 输出结果：1 2 3

把i改名叫idx只是为了让参数名更清晰，你也可以直接用i当参数名，效果完全一样。

2. 通过环境读取父函数变量（满足你的需求） #

如果你确实想通过环境的方式来获取i、不用传参，那可以让子函数主动去调用它的父环境里取变量。用parent.frame()就能拿到调用当前函数的那个环境（也就是parent.fxn的循环执行环境），然后用get()取出i：

parent.fxn = function(X) { 
  for (i in 1:3) child.fxn(X) 
}
child.fxn = function(X) { 
  # 从父环境中读取i的值
  i = get("i", envir = parent.frame())
  return(X[i]) 
}

# 测试执行
parent.fxn(1:10)
# 输出结果：1 2 3

你之前考虑的assign()其实是用来赋值的，这里咱们是要读取变量，所以用get()更合适。如果非要用assign()的话，可以写成assign("i", get("i", envir = parent.frame()), envir = environment())，但完全没必要，直接get一步到位就行。

3. 用闭包嵌套子函数 #

把child.fxn定义在parent.fxn内部，这样子函数的环境会包含父函数的环境，就能直接访问i了：

parent.fxn = function(X) { 
  # 子函数定义在父函数内部
  child.fxn = function(X) { 
    return(X[i]) 
  }
  for (i in 1:3) child.fxn(X) 
}

# 测试执行
parent.fxn(1:10)
# 输出结果：1 2 3

不过这种方式的缺点是child.fxn只能在parent.fxn内部使用，没法在外部复用，适合子函数只服务于这个父函数的场景。

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