R knitr函数调用生成多数据框单文件多页PDF报告异常：生成多文件而非单文件的问题

我来帮你排查下问题，主要有两个关键点导致你生成了两个独立文件而不是单份多页报告：

1. 错误使用purrr::pmap触发了多次渲染 #

你的param_list是list(my_list, "C:/Users/naren/Documents/test.Rmd")，其中my_list包含两个dataframe。pmap会迭代参数列表中的每个元素对，也就是第一次把df1和Rmd路径传给render_report，第二次把df2和路径传进去——这就导致渲染了两次，生成两个独立文件。

你根本不需要用pmap，因为render_report的设计就是接收一个包含所有dataframe的列表，直接调用一次函数即可。

2. Rmd文件中的列表嵌套冗余+缺少分页逻辑 #

你的Rmd里写了my_list <- list(params$variable1)，这会把已经是列表的params$variable1再包一层，变成list(list(df1, df2))，循环时只会处理外层列表的第一个元素（也就是整个list(df1,df2)），虽然直接运行时可能凑巧显示了两个表格，但逻辑不对。另外，要实现每个表格占一页，需要在每个表格后添加分页符。

修改后的完整代码 #

1. 修正后的函数调用代码

library(purrr)
library(knitr)
library(rmarkdown)

render_report <- function(PageList, RmdPath) {
  out_file <- 'my_document.pdf' # 建议加上.pdf后缀，避免格式混淆
  parameters <- list(
    variable1 = PageList,
    variable2 = RmdPath)
  rmarkdown::render(RmdPath, output_format = 'pdf_document', output_file = out_file, params = parameters)
  invisible(TRUE)
}

df1 = data.frame(x=rnorm(10), y=rnorm(10))
df2 = data.frame(x=rnorm(15), y=rnorm(15), z = rnorm(15))
my_list = list(df1, df2)

# 直接调用一次函数，不需要pmap
render_report(PageList = my_list, RmdPath = "C:/Users/naren/Documents/test.Rmd")

2. 修正后的test.Rmd代码

---
title: "Multi-page Dataframe Report"
output: pdf_document
params:
  variable1: list
  variable2: path
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(knitr)

# 直接使用传入的列表，不需要额外嵌套
my_list <- params$variable1
for (i in 1:length(my_list)){
  # 输出带标题的表格
  print(knitr::kable(my_list[[i]], caption = paste("Table", i)))
  # 除最后一个表格外，添加分页符实现单页一个表格
  if (i != length(my_list)) {
    cat('\\newpage\n')
  }
}

### 为什么这样修改有效
- 去掉`pmap`后，`render_report`只被调用一次，传入包含两个dataframe的完整列表，确保生成单个PDF文件。
- Rmd中直接使用`params$variable1`获取列表，循环遍历每个子元素（每个dataframe），逻辑更清晰。
- 添加`\\newpage`LaTeX命令，让每个表格之后强制分页，完美实现一页一个表格的需求。

现在运行函数调用代码，就能得到包含两个表格、共两页的单份PDF报告了。

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