如何在Shiny应用中使用R Markdown的.docx模板生成自定义报告

问题根因 #

Shiny运行时的工作目录和本地开发的项目目录可能不一致，直接在R Markdown的YAML中写模板的相对路径，会出现找不到文件的情况。

实现方案 #

方案1：动态传参（推荐） #

不用修改模板路径逻辑，通过render函数动态传入模板绝对路径，适配所有运行环境

1. 修改R Markdown的YAML配置，将reference_docx设置为可通过params传入的变量：

---
title: "你的报告标题"
output: 
  word_document:
    reference_docx: "`r params$ref_docx_path`"
params:
  ref_docx_path: !r NULL
  # 其他你需要传入的自定义参数写在这里
---

2. 在Shiny的服务端渲染逻辑中，先定位模板的绝对路径，再传入render函数

library(shiny)
library(rmarkdown)

server <- function(input, output, session) {
  output$download_report <- downloadHandler(
    filename = function() {
      paste0("自定义报告_", Sys.Date(), ".docx")
    },
    content = function(file) {
      # 定位同目录下的模板文件，生成绝对路径
      template_path <- normalizePath(file.path(getwd(), "template.docx"))
      
      # 渲染Rmd
      rmarkdown::render(
        input = "你的报告模板.Rmd",
        output_file = file,
        params = list(
          ref_docx_path = template_path
          # 其他你需要传入的参数，比如筛选后的数据集、用户输入的参数等
        )
      )
    }
  )
}

方案2：临时目录渲染 #

如果不想修改R Markdown的原有YAML配置，可以把所有相关文件复制到临时目录后再渲染

content = function(file) {
  # 创建临时工作目录
  temp_dir <- tempdir()
  # 复制模板、R Markdown文件到临时目录，保证路径匹配
  file.copy("template.docx", file.path(temp_dir, "template.docx"), overwrite = TRUE)
  file.copy("你的报告模板.Rmd", file.path(temp_dir, "你的报告模板.Rmd"), overwrite = TRUE)
  
  # 在临时目录执行渲染，此时YAML中直接写reference_docx: template.docx即可识别
  rmarkdown::render(
    input = file.path(temp_dir, "你的报告模板.Rmd"),
    output_file = file,
    params = list(
      # 其他自定义参数
    )
  )
}

注意事项 #

• 不管本地开发还是部署到服务器，都要确保app.R、R Markdown报告文件、template.docx三个文件存放在应用的根目录下
• 不要使用硬编码的绝对路径（比如Windows下的C盘路径），否则部署到Linux环境会完全失效
• 调试时可以打印template_path变量，确认实际读取的模板路径是否正确

内容的提问来源于stack exchange，提问作者P.Hubert