R语言中是否有方法可将管道输入分流至两个输出函数？

方法1：使用magrittr的分流管道%T>% #

magrittr包提供的%T>%（T型管道）就是专门应对这类需求的运算符：它会执行右侧的表达式，但不会将右侧的返回值传递到下一级管道，而是直接返回管道左侧的原始输入对象，完全符合你仅操作一次species_tab就同时导出两类文件的需求。
示例代码如下：

# 加载所需依赖包
library(datasets)
library(flextable)
library(gt)
library(magrittr) # 提供%T>%运算符
library(janitor) # 提供tabyl汇总函数，原示例未显式加载

species_tab <- iris %>% 
  tabyl(Species)

# 单管道分流导出两种格式
species_tab %T>% 
  # 第一路导出LaTeX，执行完仍返回原始species_tab
  { gt(.) %>% gtsave(filename = "species.tex") } %>% 
  # 第二路用原始species_tab导出Word
  flextable() %>% 
  save_as_docx(path = "species.docx")

方法2：函数式批量导出（无需额外管道运算符） #

如果不想引入特殊管道运算符，也可以用purrr的批量执行逻辑实现同样效果，把不同格式的导出逻辑封装为函数列表后统一调用：

library(purrr)
library(janitor)
library(datasets)
library(gt)
library(flextable)

species_tab <- iris %>% 
  tabyl(Species)

# 定义导出规则列表
export_rules <- list(
  tex = function(df) df %>% gt() %>% gtsave("species.tex"),
  docx = function(df) df %>% flextable() %>% save_as_docx("species.docx")
)

# 批量执行所有导出规则
walk(export_rules, ~.x(species_tab))

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