如何在函数中存储dplyr方法并外部调用？报错求助

修正后的代码方案一 #

devTest <- function(data, ...) {
  col <- enquos(...)
  
  innerTest <- function(data, cols) {
    data %>% select(!!!cols)
  }
  innerTest(data, col)
}
devTest(mtcars, mpg, gear)

修正后的代码方案二（保留管道调用） #

devTest <- function(data, ...) {
  col <- enquos(...)
  
  innerTest <- function(data, cols) {
    select(data, !!!cols)
  }
  data %>% innerTest(cols = col)
}
devTest(mtcars, mpg, gear)

报错原因解释 #

原代码中data %>% innerTest(col)的写法等价于innerTest(data, col)，但你定义的innerTest只接受一个参数col，所以第二个传入的参数col就被判定为“未使用的参数”，从而抛出错误。

两种修正方案核心都是让innerTest能正确接收数据对象和选中的列参数，要么直接调用函数传入两个参数，要么在管道调用时明确指定列参数的名称，避免参数传递混乱。

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