如何在R语言中合并两个同参数函数为一个函数？

嘿，这个需求很容易实现，我给你几种不同的方案，你可以根据自己的实际场景来选：

方案1：直接复用现有函数（推荐） #

既然你已经定义好了fun1和fun2，完全可以在新函数fun3里直接调用它们，这样既不用重复写代码，后续如果fun1或fun2的逻辑需要修改，fun3也会自动同步更新，维护起来特别省心：

# 先保留你的原始函数
fun1 <- function(a, b){ print(a * b)}
fun2 <- function(a, b){ print(a + b)}

# 合并成fun3
fun3 <- function(a, b) {
  fun1(a, b)  # 调用乘法函数
  fun2(a, b)  # 调用加法函数
}

测试一下效果：

fun3(2, 3)
# 输出：
# [1] 6
# [1] 5

方案2：直接整合函数逻辑 #

如果你不需要保留fun1和fun2，或者想让fun3完全独立，也可以直接把两个函数的代码块合并到一起，就像你给出的示例那样：

fun3 <- function(a, b){
  print(a * b)
  print(a + b)
}

这种方式的好处是fun3不依赖外部函数，但缺点是如果后续乘法或加法的逻辑需要修改，只能直接改fun3的代码。

方案3：更灵活的扩展方案（适合后续要加更多函数的场景） #

如果以后你可能还要加入更多类似的函数（比如减法、除法），可以把fun3设计成能接受函数列表的形式，扩展性拉满：

fun3 <- function(a, b, funs = list(fun1, fun2)) {
  # 遍历传入的函数列表，依次执行
  lapply(funs, function(f) f(a, b))
}

比如以后新增一个减法函数：

fun4 <- function(a, b){ print(a - b)}
# 调用时传入新的函数列表
fun3(2, 3, funs = list(fun1, fun2, fun4))
# 输出：
# [1] 6
# [1] 5
# [1] -1

这样不管以后加多少个函数，都不用修改fun3的核心代码啦～

内容的提问来源于stack exchange，提问作者Rafael Jeremia Jonathans