如何定义管道运算符？

Question

我非常喜欢管道（在 cmets 中提到的 dplyr 或 magrittr），但有时我会遇到错误，这表明我缺乏一些理解。对于其他函数或运算符，我大多至少知道如何定义它们，但对于管道，如果我想定义它，我什至不知道从哪里开始。

我真的很好奇管道是如何定义的。到目前为止，我只是尝试将其分配给自己的操作员，但即使这样也不起作用。见这里：

library(dplyr)

`%pipe%` <- `%>%`

data.frame() %pipe% class(.)
# gives an error: subscript out of bounds

什么神奇的成分使管道起作用？我们怎么能自己定义呢？谢谢。

Answer 1

magrittr 的代码本身会检查您使用的管道是否被命名为少数允许的名称之一，如顶部所示：https://github.com/tidyverse/magrittr/blob/master/R/is_something.R。

事实上，所有管道都有相同的代码，从magrittr:::pipe 复制，如该脚本的底部所示：

https://github.com/tidyverse/magrittr/blob/master/R/pipe.R

行为取决于管道的名称，这真的很奇怪，我从未在其他任何地方看到过。

我将尝试通过发明一个行为相似的假函数来减少混淆，请原谅这个例子的愚蠢。

concat <- function(x,y) {
  # extract quoted function name from call
  fun <- sys.call()[[1]]

  # check if it's one of our possible names, and act accordingly
  if(identical(fun, quote(`%upconcat>%`))) {
    return(toupper(paste0(x,y)))
  } 
  if(identical(fun, quote(`%lowconcat>%`))) {
    return(tolower(paste0(x,y)))
  } 
  stop("Unsupported operator!")
}
`%upconcat>%` <- `%lowconcat>%` <- concat

"XoX" %upconcat>% "oXo"
#> [1] "XOXOXO"
"XoX" %lowconcat>% "oXo"
#> [1] "xoxoxo"

`%foo>%` <- `%upconcat>%`
"XoX" %foo>% "oXo"
#> Error in "XoX" %foo>% "oXo": Unsupported operator!

您会发现，除非您修改 is_pipe 函数本身，否则无法复制管道，这是您无法做到的......

开个玩笑，你当然可以，但也许你不应该？

library(magrittr)
is_pipe <- function(pipe) {
  identical(pipe, quote(`%>%`))   ||
    identical(pipe, quote(`%T>%`))  ||
    identical(pipe, quote(`%<>%`))  ||
    identical(pipe, quote(`%$%`)) ||
    identical(pipe, quote(`%pipe%`)) # <- added line
}

assignInNamespace("is_pipe", is_pipe, "magrittr")
`%pipe%` <- `%>%`

data.frame() %pipe% class(.)
#> [1] "data.frame"

^{由reprex package (v0.3.0) 于 2020 年 5 月 29 日创建}