Plumber API生成的DOCX文件下载后无法打开问题求助

一、修复DOCX文件无法打开的问题 #

DOCX文件损坏通常源于多请求文件覆盖、响应头不规范或文件读取异常，以下是修正后的实现代码：

修改后的plumber.R： #

#* @param test le deuxieme doc
#* @post /generate_report_word
function(test, res) {
  # 生成唯一临时文件存储DOCX，避免多请求冲突
  output_path <- tempfile(fileext = ".docx")
  
  # 渲染Rmd到临时文件
  rmarkdown::render("report_test.Rmd", output_file = output_path, 
                    params = list(team1 = test))
  
  # 读取文件二进制内容
  file_content <- readBin(output_path, "raw", n = file.info(output_path)$size)
  
  # 设置规范的响应头
  res$setHeader("Content-Type", "application/vnd.openxmlformats-officedocument.wordprocessingml.document")
  res$setHeader("Content-Disposition", sprintf("attachment; filename=\"rapport_word.docx\""))
  
  # 返回二进制内容，Plumber自动处理响应体
  file_content
}

核心修改点： #

• 用tempfile(fileext = ".docx")生成临时文件，避免多个请求同时写入同一文件导致损坏
• 移除未使用的tmp1变量，简化代码逻辑
• 给文件名添加双引号，符合HTTP头解析规范
• 直接返回二进制内容，无需手动设置res$body，减少出错概率

二、添加ZIP格式下载接口 #

如需返回ZIP压缩包，只需在生成DOCX后将其打包为ZIP再返回，实现如下：

新增到plumber.R的ZIP接口： #

#* @param test le deuxieme doc
#* @post /generate_report_zip
function(test, res) {
  # 生成临时DOCX文件
  docx_path <- tempfile(fileext = ".docx")
  rmarkdown::render("report_test.Rmd", output_file = docx_path, 
                    params = list(team1 = test))
  
  # 生成临时ZIP文件并打包DOCX
  zip_path <- tempfile(fileext = ".zip")
  zip(zipfile = zip_path, files = docx_path, flags = "-j")  # -j参数仅打包文件，不保留路径
  
  # 读取ZIP二进制内容
  zip_content <- readBin(zip_path, "raw", n = file.info(zip_path)$size)
  
  # 设置ZIP响应头
  res$setHeader("Content-Type", "application/zip")
  res$setHeader("Content-Disposition", sprintf("attachment; filename=\"rapport_word.zip\""))
  
  # 返回ZIP内容
  zip_content
}

关键说明： #

• 使用zip()函数打包，-j参数确保ZIP内仅包含DOCX文件，不携带临时目录路径
• 设置正确的ZIP类型Content-Type：application/zip
• 全程使用临时文件，避免文件覆盖和残留

额外建议 #

• 确保rmarkdown和plumber为最新版本，避免旧版本bug导致文件损坏
• 先本地运行rmarkdown::render()生成DOCX，确认文件本身可正常打开，排除Rmd渲染问题
• 检查服务器临时目录（默认tempdir()）的读写权限，确保文件可正常写入读取

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