如何在R包的YAML头中动态设置Rmarkdown输出Word模板？

方法一：通过render()的output_args参数传递（推荐） #

无需修改包内的skeleton.Rmd文件，直接在调用渲染函数时动态传递模板路径，这是最简洁且适配所有用户的方案：

1. 确保正确获取包内模板的路径：

template_path <- system.file("Word/landscape_report_template.dotx", package = "你的包名")
# 验证路径有效性，避免后续报错
stopifnot(file.exists(template_path))

2. 调用rmarkdown::render()时，通过output_args覆盖YAML中的输出设置：

rmarkdown::render(
  input = system.file("skeleton.Rmd", package = "你的包名"),
  output_file = "格式化表格文档.docx",
  output_dir = getwd(), # 指定输出到当前工作目录
  output_args = list(
    word_document = list(
      reference_docx = template_path
    )
  )
)

原理：output_args会优先覆盖Rmd文件YAML头中的输出配置，system.file会自动定位到每个用户安装包后的模板文件位置，完全避免硬编码路径的兼容性问题。

方法二：临时生成修改YAML的Rmd文件（适合多参数修改场景） #

如果需要同时修改多个YAML元数据，可以临时生成包含正确模板路径的Rmd内容，不会覆盖原文件：

1. 读取原Rmd内容并定位YAML区域：

# 读取包内的skeleton.Rmd文件内容
original_rmd <- readLines(system.file("skeleton.Rmd", package = "你的包名"))
# 找到YAML块的结束位置（第二个---分隔符）
yaml_end_idx <- which(original_rmd == "---")[2]

2. 修改YAML中的模板路径：

template_path <- system.file("Word/landscape_report_template.dotx", package = "你的包名")
# 提取原YAML元数据并修改
yaml_front <- rmarkdown::yaml_front_matter(textConnection(original_rmd[1:yaml_end_idx]))
yaml_front$output$word_document$reference_docx <- template_path

# 重新生成YAML文本块
new_yaml <- c("---", yaml::as.yaml(yaml_front), "---")

3. 拼接新内容并渲染临时文件：

# 组合新的Rmd完整内容
new_rmd_content <- c(new_yaml, original_rmd[(yaml_end_idx + 1):length(original_rmd)])
# 创建临时Rmd文件
temp_rmd <- tempfile(fileext = ".Rmd")
writeLines(new_rmd_content, temp_rmd)

# 渲染临时文件
rmarkdown::render(
  input = temp_rmd,
  output_file = "格式化表格文档.docx",
  output_dir = getwd()
)

# 清理临时文件（可选）
file.remove(temp_rmd)

关于Error 99错误的说明 #

出现pandoc document conversion failed with error 99通常是因为pandoc无法找到指定的reference_docx文件。硬编码本地路径仅在你的机器上有效，其他用户安装包后路径会不同；而通过system.file动态生成的路径是每个用户本地的正确路径，能彻底解决这个问题。

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