如何在多数据集上运行R Markdown 批量生成对应命名的Word文档

你之前的配置错误核心是：向openxlsx::read.xlsx()传入了文件夹路径而非单个xlsx文件路径，导致函数无法识别读取对象，触发报错。以下是完整可运行的解决方案：

1 修改R Markdown脚本 #

调整参数定义、读取逻辑，支持动态传入单个数据集路径，同时支持标题动态匹配数据集名称，将修改后的Rmd文件命名为data_check.Rmd：

---
title: "`r tools::file_path_sans_ext(basename(params$file_path))` 数据错误检测报告"
author: "Somebody"
output:
  bookdown::word_document2:
    fig_caption: yes
    number_sections: FALSE
params:
  file_path: ""
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(openxlsx)
# 动态读取传入的数据集
dataset <- openxlsx::read.xlsx(params$file_path)

# 检测name列空值
suppressWarnings(if (any(is.na(dataset$name))) {
  na.index <- which(is.na(dataset$name))
  cat(
    paste(
      "– name列存在空值，该列不允许为空，请修正以下行号对应内容：",
      paste(na.index, collapse = ', ')
    ),
    ".",
    sep = "",
    "\n",
    "\n"
  )
})
# 可自行拓展其他列的检测逻辑

## 2 编写批量渲染脚本
新建一个独立的R脚本（和上面的Rmd文件放在同一目录），运行以下代码即可批量生成所有数据集对应的Word报告：
```r
library(rmarkdown)
# 配置路径
data_dir <- "~/Desktop/data" # 你的数据集存放目录
rmd_path <- "data_check.Rmd" # 你的Rmd文件路径
output_dir <- "~/Desktop/reports" # 生成的Word报告存放目录，需提前手动创建
# 获取目录下所有xlsx文件的完整路径
xlsx_files <- list.files(data_dir, pattern = "\\.xlsx$", full.names = TRUE)
# 循环批量渲染
for (file in xlsx_files) {
  # 生成对应Word文件名：和数据集同名，后缀改为docx
  output_name <- paste0(tools::file_path_sans_ext(basename(file)), ".docx")
  render(
    input = rmd_path,
    params = list(file_path = file),
    output_file = file.path(output_dir, output_name)
  )
}

注意事项 #

• 运行前确保已安装所有依赖包：install.packages(c("rmarkdown", "bookdown", "openxlsx"))
• 建议优先使用绝对路径配置目录，避免相对路径带来的工作目录匹配错误
• 若需要检测更多列的空值或其他错误，直接在Rmd的test代码块中拓展对应逻辑即可

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