R语言嵌套函数中match.call()返回..1而非预期符号的问题

首先，咱们来拆解下你遇到的问题：你写的两个函数里，当调用fn1(test)时，返回的是..1而不是预期的符号test，核心原因是**match.call()默认只捕获当前函数的调用上下文**，而不是上层函数的。

问题根源 #

看你的代码：

fn1 <- function(...) { fn2(...) }
fn2 <- function(...) { match.call(expand.dots = FALSE)$... }

当你执行fn1(test)，fn1会把test传递给fn2的...参数。但在fn2里，match.call()获取的是fn2(...)这个调用——这里的...在fn2的局部环境中被R内部命名为..1（如果有多个参数就是..1、..2以此类推），所以返回的是这个内部标记，而非原始的test符号。

两种解决方案 #

方案一：让fn2获取上层函数的调用信息

利用sys.call()和sys.parent()获取父函数（也就是fn1）的调用表达式，这样就能拿到原始的参数符号：

fn1 <- function(...) { fn2(...) }
fn2 <- function(...) {
  # 获取父函数fn1的调用
  parent_call <- sys.call(sys.parent())
  # 提取调用中的参数部分（去掉函数名fn1）
  parent_call[-(1)]
}

测试一下：

fn1(test)
# 返回: test
fn1(a, b, c)
# 返回: a b c

方案二：在fn1中直接传递自身的调用信息给fn2

这种方式更直接，让fn1把自己的调用上下文传给fn2，避免...传递时的上下文丢失：

fn1 <- function(...) {
  # 捕获fn1的调用并传给fn2
  fn2(call = match.call(expand.dots = FALSE))
}
fn2 <- function(call) {
  # 从fn1的调用中提取...参数
  call$...
}

测试效果：

fn1(test)
# 返回: [[1]] test
fn1(x, y)
# 返回: [[1]] x [[2]] y

补充说明 #

如果你需要更灵活处理参数（比如同时支持直接调用fn2(test)和通过fn1调用），可以给方案一的fn2加个判断，优先检查当前函数是否是被上层调用的：

fn2 <- function(...) {
  # 先看当前调用是否来自上层函数
  parent_frame <- sys.parent()
  if (parent_frame != 0) {
    parent_call <- sys.call(parent_frame)
    return(parent_call[-(1)])
  }
  # 如果是直接调用fn2，就用自身的match.call
  match.call(expand.dots = FALSE)$...
}

这样不管是fn1(test)还是fn2(test)都能返回test符号啦。

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