如何创建可替代%>%的带额外副作用功能的自定义magrittr管道？

完全可以轻松实现一个和%>%（或|>）功能完全一致，但附加自定义副作用的管道。核心思路是模仿原管道的逻辑，在执行主函数的前后插入副作用代码，最终返回主函数的执行结果，完全不改变原有管道的数据流。

方案1：固定副作用的管道 #

适合需要反复执行同一种副作用的场景（比如每次管道步骤都打印中间结果信息）。

实现代码 #

# 定义自定义管道 %L>%，带固定打印副作用
`%L>%` <- function(x, f) {
  # 副作用：打印当前对象的基本信息
  cat("=== 中间步骤信息 ===\n")
  cat("对象类型:", class(x), "\n")
  if (is.data.frame(x)) {
    cat("数据维度:", nrow(x), "行 ×", ncol(x), "列\n")
  } else if (is.vector(x)) {
    cat("向量长度:", length(x), "\n")
  }
  cat("-------------------\n\n")
  
  # 执行原管道逻辑，返回结果（和%>%完全一致）
  x %>% f
}

使用示例 #

# 和%>%用法完全相同，只是多了副作用打印
mtcars %L>%
  filter(cyl == 6) %L>%
  mutate(mpg = mpg * 1.1) %L>%
  select(mpg, cyl, disp)

运行后会在控制台打印每一步的中间对象信息，最终输出的结果和用%>%完全一致。

方案2：可自定义副作用的管道 #

适合需要灵活切换副作用的场景，比如有时候打印信息、有时候绘图、有时候更新进度条。

实现代码 #

# 定义全局副作用函数，可随时修改
.current_side_effect <- function(x) {
  # 默认副作用：打印对象的结构
  str(x)
}

# 定义自定义管道 %S>%
`%S>%` <- function(x, f) {
  # 执行副作用（处理输入）
  .current_side_effect(x)
  
  # 执行主管道操作
  result <- x %>% f
  
  # 可选：对执行结果也执行副作用
  .current_side_effect(result)
  
  # 返回主操作结果
  result
}

切换副作用示例 #

比如把副作用改成绘制散点图：

# 修改副作用为绘图
.current_side_effect <- function(x) {
  if (is.data.frame(x) && ncol(x) >= 2) {
    plot(x[,1], x[,2], main = "中间结果可视化")
  }
}

# 管道用法不变
mtcars %S>%
  filter(cyl == 6) %S>%
  select(mpg, disp)

为什么%T>%和%V%不符合需求？ #

• %T>%是分支管道：它会把输入传给右侧函数，但返回的是输入本身而非函数执行结果，适合需要输出（比如绘图）但继续使用原数据的场景，和%>%的数据流逻辑不同。
• %V%是无关联副作用管道：它会忽略输入，执行右侧的表达式后返回输入，适合添加和当前数据流无关的操作，无法同步处理主管道的输入/输出。

而我们自定义的管道完全继承%>%的核心逻辑：输入传给右侧函数，返回函数执行结果，只是在这个过程中插入了副作用操作，完美替代原管道。

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