想让magrittr%>%与R原生管道|>行为一致，却找不到|>，它是什么？

为什么|>会提示“对象未找到”？ #

核心原因：|>不是普通的R函数，是解析层面的语法糖。它是R 4.1.0版本引入的语法结构，由R的解析器直接处理，并不存在于R的对象命名空间里，所以exists("|>")返回FALSE，直接调用|>也会报错。

至于if这类关键字能被exists检测到，是因为它们属于R的特殊符号体系，而|>是更底层的语法实现，不属于这个范畴。

如何让%>%拥有|>的行为？ #

你直接用%>% <- function(...){|>(...)}行不通，因为|>不能像普通函数那样被调用。这里给两种可行的实现方式：

方式1：手动模拟原生管道逻辑 #

借助rlang包的表达式处理工具，复刻|>自动传参的核心行为：

library(rlang)

`%>%` <- function(lhs, rhs) {
  rhs_expr <- enexpr(rhs)
  # 处理函数调用的情况：把左值作为第一个参数传入
  if (is_call(rhs_expr)) {
    rhs_expr[[2]] <- lhs
    eval_tidy(rhs_expr)
  } else {
    # 处理单独函数名的情况：直接调用该函数并传入左值
    eval_tidy(call2(rhs_expr, lhs))
  }
}

这个实现会自动把x %>% f(y)转换成f(x, y)，和x |> f(y)的效果完全一致。

方式2：表达式替换直接复用原生管道 #

更简洁的方式是把%>%的调用直接转换成|>的语法再执行：

`%>%` <- function(lhs, rhs) {
  pipe_expr <- substitute(lhs |> rhs)
  eval(pipe_expr, envir = parent.frame())
}

这种方法本质是在代码执行前，把x %>% f()替换成x |> f()，完美对齐原生管道的所有行为。

开发R包的注意事项 #

• 方式1需要依赖rlang包，要在包的DESCRIPTION里声明依赖；方式2只要求用户的R版本≥4.1.0，可在DESCRIPTION里设置Depends: R (>= 4.1.0)。
• 原生管道和magrittr管道的细节差异（比如对中缀函数的处理），上面的实现已经覆盖核心的无.传参需求。

内容的提问来源于stack exchange，提问作者Kevin Zarca