如何定义管道操作员？-解网

问：

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

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

library(dplyr)

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

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

哪些神奇的成分使烟斗起作用？我们自己如何定义它？谢谢。

DPLYR Magrittr 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 软件包（v0.3.0）于 2020-05-29 创建}

如何定义管道操作员？

How to define the pipe operator?

评论

评论