如何在R Markdown中循环输出多个flextable至Word文档？

能否基于R Markdown的params参数，遍历长度可变的参数列表，将参数传入自定义函数，在Word文档中输出flextable对象？

尝试用lapply实现时，Word文档总是输出html或str()内容；目前的临时方案是为每个表格单独创建代码块加逻辑判断，操作繁琐。试过相关方案但未生效。

核心是利用officedown和flextable的适配特性，结合purrr::walk（而非lapply）遍历参数列表，同时确保代码块输出配置正确。

完整实现代码 #

---
output:
  officedown::rdocx_document:
params:
  universe_report: TRUE
  homeworld_name: "Tatooine"
  # 动态生成母星列表：全宇宙模式返回多母星，否则返回指定单母星
  homeworld_list: !r if(params$universe_report) c("Tatooine", "Naboo", "Alderaan") else c(params$homeworld_name)
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(tidyverse)
library(flextable)
library(officedown)

# 修正后的自定义表格生成函数
custom_flextable = function(homeworld = "Tatooine", hair_color_none = TRUE){
  # 先过滤母星，再根据条件选择列
  filtered_df = starwars %>% 
    mutate(hair_color_none = if_else(hair_color == "none", TRUE, FALSE, missing = FALSE)) %>%
    filter(homeworld == !!homeworld)
  
  data = if(hair_color_none){
    filtered_df %>% select(hair_color, eye_color)
  } else {
    filtered_df %>% select(height, mass)
  }
  
  # 生成带标题的flextable
  data %>% 
    flextable() %>%
    set_caption(caption = paste0(
      homeworld, 
      " - ", 
      if(hair_color_none) "无发色筛选" else "有发色筛选"
    ))
}

# 构建所有需要的参数组合（母星 + 筛选条件）
table_params = expand.grid(
  homeworld = params$homeworld_list,
  hair_color_none = c(TRUE, FALSE),
  stringsAsFactors = FALSE
)

# 遍历参数组合，逐个输出表格和标题
purrr::walk(1:nrow(table_params), function(i){
  # 输出分类标题
  cat(paste0("### ", table_params$homeworld[i], " 相关表格\n"))
  cat(paste0("#### ", if(table_params$hair_color_none[i]) "无发色筛选" else "有发色筛选", "\n"))
  
  # 生成并正确渲染表格到Word
  custom_flextable(
    homeworld = table_params$homeworld[i],
    hair_color_none = table_params$hair_color_none[i]
  ) %>% 
    knitr::knit_print() %>%
    print()
})

关键细节说明 #

• 动态参数列表：在YAML的params里用!r表达式，根据universe_report的值自动切换单/多母星列表，不用手动修改代码块。
• 用walk替代lapply：lapply会返回结果列表，导致Word输出多余的文本内容；walk只执行函数不返回结果，避免这个问题。
• 正确渲染表格：通过knitr::knit_print() + print()组合，强制flextable以Word格式渲染，而不是默认的html或文本格式。
• 函数语法修正：原函数中filter(!!homeworld == homeworld)存在变量引用错误，修正为filter(homeworld == !!homeworld)，确保正确匹配母星列和传入参数。

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