我想知道有没有办法向运算符提供超过2个参数，或者除了使用函数格式之外，我别无选择！例如，我可以定义需要超过2个Arg的合并运算符。

这里只是一个例子，我对合并功能不感兴趣：

1.我做了一个运算符来合并两个数据帧，它们的共同列名A%

`%>>%`<- function(a,b){
      by.tmp = intersect(names(a),names(b))
      base::merge(a,b,by = by.tmp)
}

2.Now我正在寻找一种方法来定义从data. frameA到data.frameB应该匹配哪个列，例如：

A %column_name_a>>column_name_b% B
# or feeding 2 arg from each side to operator like follow 
# which inside parenthesis return another operator
A (column_name_a %>>% column_name_b) B
# or more advanced
A:column_name_list_a%>>%column_name_list_b:B

我知道如何使用函数来做到这一点，我只是想知道有没有办法定义更复杂的运算符来抽象我的代码。

更新：我设法用未知数量的参数纠正了一个运算符（它有点级联，但它有效）。这是方法：

`%>%` <- function(a,b){

  ifvalid <- function(a, frame = parent.frame()){
    res = try(eval(a,frame),silent = T)
    flag = inherits(res, "try-error") | (length(res)==0)
    ifelse ((!flag) | (length(a)==1) , return(res),  return(
      lapply(a, ifvalid,frame=frame)
      )
    )
  }


  left_arg = substitute(a)
  right_arg= substitute(b)

  res = list(
    left = ifvalid(left_arg),
    right = ifvalid(right_arg)
  )

  return(res)
}

运行示例是：

"X":1:NULL %>% date():`*`
# $left
# $left[[1]]
# .Primitive(":")
# 
# $left[[2]]
# $left[[2]][[1]]
# .Primitive(":")
# 
# $left[[2]][[2]]
# [1] "X"
# 
# $left[[2]][[3]]
# [1] 1
# 
# 
# $left[[3]]
# list()
# 
# 
# $right
# $right[[1]]
# .Primitive(":")
# 
# $right[[2]]
# [1] "Wed Feb 03 16:04:17 2016"
# 
# $right[[3]]
# function (e1, e2)  .Primitive("*")