如何基于模板程序化创建并填充参数的R Markdown文档？

一、直接实现创建+参数填充 #

rmarkdown::draft()本身确实不支持直接传参数生成文档，但我们可以通过读取模板文件+替换参数占位符的方式实现需求，操作起来很简单：

1. 先准备好带占位符的R Markdown模板
   把模板里需要动态替换的内容用{{变量名}}标记，示例如下：

   ---
   title: "{{report_title}}"
   output: html_document
   params:
     data_source: "{{data_path}}"
     cutoff_value: {{cutoff}}
   ---
   

2. 写个自定义函数搞定替换和生成
   调用下面的函数就能直接生成填充好参数的Rmd文件：

   create_param_report <- function(output_path, title, data_path, cutoff) {
     # 读入模板内容
     template_content <- readLines("template.Rmd")
     
     # 替换所有占位符
     modified_content <- gsub("{{report_title}}", title, template_content)
     modified_content <- gsub("{{data_path}}", data_path, modified_content)
     modified_content <- gsub("{{cutoff}}", as.character(cutoff), modified_content)
     
     # 写入新文件
     writeLines(modified_content, output_path)
     
     # 要是想直接渲染成HTML/PDF，加这行就行
     # rmarkdown::render(output_path, params = list(data_source = data_path, cutoff_value = cutoff))
   }
   
   # 调用示例
   create_param_report(
     output_path = "my_sales_report.Rmd",
     title = "2024年Q2销售数据分析",
     data_path = "./sales_q2.csv",
     cutoff = 0.6
   )
   

如果你的模板比较复杂（比如包含循环、条件判断），可以用whisker包处理，它的模板语法更灵活：

library(whisker)

# 模板可以是字符串，也可以从文件读取
template <- '---
title: "{{title}}"
output: html_document
params:
  data_file: "{{data_path}}"
  threshold: {{threshold}}
---

# {{title}}

本次分析使用的数据文件：`{{data_path}}`，筛选阈值设置为 {{threshold}}。'

# 定义要填充的参数
params <- list(
  title = "用户活跃度分析报告",
  data_path = "./user_active.csv",
  threshold = 0.5
)

# 渲染模板并写入文件
rendered_content <- whisker.render(template, params)
writeLines(rendered_content, "user_activity_report.Rmd")

二、用draft()生成后再修改内容 #

要是你一定要用rmarkdown::draft()先创建初始文档，之后再修改标题、参数或者正文内容也完全可行，核心就是读入生成的文件，替换目标内容后重新保存：

示例代码：

# 先用draft生成初始文档，edit设为FALSE避免自动打开编辑
rmarkdown::draft(
  "temp_draft.Rmd",
  template = "html_document", # 也可以用你自己的自定义模板
  package = "rmarkdown",
  edit = FALSE
)

# 读入生成的文档内容
draft_content <- readLines("temp_draft.Rmd")

# 修改标题
draft_content <- gsub('title: "Untitled"', 'title: "程序化生成的分析报告"', draft_content)

# 添加参数部分：找到YAML块的结尾（第二个---），插入params内容
yaml_end_line <- which(draft_content == "---")[2]
new_params <- c(
  "params:",
  "  data_source: \"./sample_data.csv\"",
  "  analysis_date: \"2024-05-20\""
)
draft_content <- append(draft_content, new_params, after = yaml_end_line - 1)

# 修改正文里的默认文本
draft_content <- gsub("This is an R Markdown document.", "本报告为程序化生成的自动化分析文档。", draft_content)

# 保存修改后的最终文档
writeLines(draft_content, "final_automated_report.Rmd")

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