R 中是否有非二元运算的 Reduce 运算符？

如何解决R 中是否有非二元运算的 Reduce 运算符？

R 具有 Reduce 函数，可以递归地构建对象。 Reduce 的基本参数是一个二元函数 f 和一个向量 x。二元函数接受两个相同类型的参数并返回相同类型的值。

如果有一个 reduce 版本，函数接受不同类型的对象，并且返回值是这两种类型之一，那将会很有用。 R有这样的功能吗？下面是一个工作示例。

df <- data.frame(A = 1:4,B = letters[1:4])

v <- list(LETTERS[1:4],4:1)

op <- function(df,s) {
  df[[ncol(df)+ 1]] <- s
  df
}

reduce.with.list <- function(x,v,op) {
  recur.op <- function(x,n) {
    x <- op(x,v[[n]])
    if (n == length(v)) return(x)
    recur.op(x,n+1)
  }
  recur.op(x,1)
}

reduce.with.list(df,op)

运行这段代码的结果是：

  A B V3 V4
1 1 a  A  4
2 2 b  B  3
3 3 c  C  2
4 4 d  D  1

我想说明这只是一个例子。我的目标不是向数据框添加列。我正在寻找的函数应该能够采用 T1 类型的长度为 1 的向量、T2 类型的对象列表和一个运算符 op，它采用两个参数，一个是 T1 类型，另一个是 T2 类型，并返回一个对象T1 型。