R语言如何指定调用函数列表中的部分函数并优化代码结构？

核心修改逻辑 #

原代码把待调用的函数列表硬编码在内部函数里，要实现自定义选择函数的需求，同时优化结构，核心调整如下：

• 把硬编码的函数列表抽为函数的显式命名参数，设置默认值保留原有默认行为，不需要修改旧的调用代码
• 扁平化嵌套结构，去掉冗余的内部函数定义
• 增加基础参数校验，避免无效输入导致的晦涩报错
• 规避隐式参数解析的歧义问题

优化后完整代码 #

myFunc <- function(..., funs = list(min, max, mean, sum)) {
  # 校验传入的函数列表合法性
  if (!all(vapply(funs, is.function, logical(1)))) {
    stop("funs参数必须是由函数构成的列表")
  }
  # 对每个输入对象批量应用指定函数
  lapply(list(...), function(obj) {
    lapply(funs, function(f) f(obj))
  })
}

注：如果使用R 4.1以上版本，代码里的函数定义可以用\(...)简写替换function(...)，写法更简洁。

使用方式 #

• 默认调用（和原代码行为一致，自动应用min、max、mean、sum四个函数）

obj1 <- c(1:9)
obj2 <- c(1:7)
myFunc(obj1, obj2)

• 自定义调用函数（例如仅计算最小值、最大值）

myFunc(obj1, obj2, funs = list(min, max))

• 支持传入任意自定义函数，例如计算中位数、标准差

myFunc(obj1, obj2, funs = list(median, sd))

结构优化说明 #

• 参数逻辑更严谨：用显式命名的funs参数传递自定义函数列表，不会和待处理的输入对象混淆，避免了「最后一个位置参数隐式判断是不是函数列表」带来的歧义——如果待处理对象本身就是列表类型，隐式判断会直接出错。
• 代码更简洁：去掉了原代码里多余的内层myApply函数定义，两层lapply直接实现核心逻辑，嵌套层级更浅，可读性更高。
• 容错性更好：增加了函数列表的合法性校验，输入不符合要求时会直接抛出清晰的错误提示，不用等运行到函数调用时才出现难定位的报错。
• 扩展性更强：后续需要支持新的统计/处理逻辑时，只需要往funs里传对应的函数即可，不需要修改myFunc的内部代码。

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