R语言多层函数中dots参数（...）传递失效问题求助

问题原因 #

你遇到的问题是因为匿名函数中的...和外层函数的...属于不同作用域，外层传入的参数（比如skip=4）没有被传递到内部的fread调用中。

解决方案 #

方案一：直接利用lapply的参数传递机制 #

lapply支持将额外参数通过...传递给目标函数，因此可以直接把fread作为lapply的操作函数，省去匿名函数包裹，代码更简洁高效：

data_import_test_2 <- function(data_list, ...) {
  .GlobalEnv$test_import <- do.call(rbind, lapply(data_list, fread, ...))
}
# 调用示例
data_import_test_2(data_list = data_list_2, skip = 4)

这里lapply会将...中的所有参数（比如skip=4）传递给每个fread调用，完美实现参数透传。

方案二：捕获外层dots参数后传递（更灵活） #

如果需要对fread的参数做额外处理，可以先把外层的...捕获为列表，再通过do.call传递给fread：

data_import_test_2 <- function(data_list, ...) {
  # 捕获外层传入的所有fread参数
  fread_params <- list(...)
  # 遍历文件列表，调用fread并传入参数
  data_list <- lapply(data_list, function(file_path) {
    do.call(fread, c(file = file_path, fread_params))
  })
  .GlobalEnv$test_import <- do.call(rbind, data_list)
}

额外建议：避免直接操作全局环境 #

直接修改全局环境（.GlobalEnv$test_import）属于函数副作用，不符合R的函数设计规范。更优的做法是让函数返回合并后的数据集，由用户自行赋值：

data_import <- function(data_list, ...) {
  do.call(rbind, lapply(data_list, fread, ...))
}
# 使用方式
test_import <- data_import(data_list = data_list_2, skip = 4)

这样函数的复用性和可测试性更强，也更符合R的编程习惯。

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