R语言中传递含缺失或冗余元素的嵌套列表至函数的正确方法

R 原生的do.call会严格校验传入的所有命名参数，只要遇到目标函数不接收的冗余参数就会直接抛出unused argument错误，要实现容错的参数传递，核心思路是在调用函数前，先过滤掉当前函数不识别的冗余参数，缺省的参数直接交由函数自身的默认值兜底。

实现步骤 #

1. 自动识别目标函数的合法参数 #

用基础函数formals()可以快速提取目标函数定义的所有正式形参，不需要手动硬编码参数名：

# 提取自定义函数f接受的所有参数名
accepted_params <- names(formals(f))
# 对示例中的f，会返回 c("a", "b")

2. 封装安全调用的通用逻辑 #

写一个通用的参数过滤包装函数，每次调用前先对齐参数列表和函数的合法形参：

safe_do_call <- function(target_fun, param_set) {
  # 获取目标函数支持的所有参数名
  valid_names <- names(formals(target_fun))
  # 从传入的参数集中，只保留函数可接受的参数，冗余参数直接丢弃
  filtered_params <- param_set[names(param_set) %in% valid_names]
  # 用过滤后的参数执行调用
  do.call(target_fun, filtered_params)
}

3. 验证容错效果 #

分别测试带冗余参数、缺省参数的场景：

• 对包含冗余参数c=5的子列表params[["2"]]：

safe_do_call(f, params[["2"]])
# 正常输出：[1] "a = 3, b = 4"

原本触发的unused argument (c = 5)报错会被消除，冗余的c参数被自动过滤。

• 对缺省参数b的子列表params[["4"]]：

safe_do_call(f, params[["4"]])
# 正常输出：[1] "a = 8, b = 0"

缺省的b参数会自动使用函数定义的默认值0，无需额外补全。

批量执行选中的参数集 #

实现选中指定子列表批量执行的需求时，只需要把过滤逻辑嵌入批量循环即可，输出效果和示例循环完全一致：

selected <- c("1", "3")
# 基础R实现，无需额外依赖
lapply(params[selected], \(sub_params) safe_do_call(f, sub_params))
# 依次输出：
# [1] "a = 1, b = 2"
# [1] "a = 6, b = 7"

注意事项 #

• 如果目标函数本身定义了...形参（可接受任意额外参数），只需要调整过滤逻辑：保留所有正式形参匹配的参数，剩余参数因为会被...接收，不需要额外过滤。
• 所有参数的匹配逻辑完全沿用R原生的命名匹配规则，不会改变原有函数的参数行为。

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