如何在含...参数的函数中正确选择数据框的多列？

原代码的核心问题 #

1. 语法错误：innerTest函数定义未加大括号，导致只有more = list(...)属于函数体，后续的data %>% select(more)完全不在函数作用域内，逻辑断裂。
2. 参数传递错误：用list(...)把外层列名转为列表后，再通过{{col}}传给内层...，相当于把整个列表当作单个参数传递，select无法识别列表内的列名，同时因为列名未在全局环境定义，触发"object not found"错误。

两种可行的修正方案 #

方案1：直接传递...参数

最简洁的写法，把外层函数的...直接传给内层函数，无需额外转换：

library(dplyr)

devTest <- function(data, ...) {
  innerTest <- function(data, ...) {
    data %>% select(...)
  }
  innerTest(data, ...)
}

# 测试调用
devTest(mtcars, mpg, gear)

方案2：用enquos捕获列表达式

如果需要在中间步骤处理列参数（比如做参数校验），可以用rlang包的enquos捕获未计算的列表达式，再通过!!!解引用传给select：

library(dplyr)
library(rlang)

devTest <- function(data, ...) {
  # 捕获列选择表达式
  cols <- enquos(...)
  innerTest <- function(data, cols) {
    # 解引用表达式传给select
    data %>% select(!!!cols)
  }
  innerTest(data, cols)
}

# 测试调用
devTest(mtcars, mpg, gear)

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