如何解决R Shiny中Quarto参数化报告无法下载的问题

现象 #

单独渲染QMD模板正常，但在Shiny的downloadHandler中调用quarto::quarto_render后，无法生成并下载PDF/DOCX/HTML报告，无报错但文件未写入下载文件夹，疑似渲染后的文件路径未正确捕获导致file.copy失效。

现有代码 #

Shiny的downloadHandler代码 #

output$report <- downloadHandler(
filename = function() {
  paste("report", input$report_file_type, sep = ".")
},

content = function(file) {
  output <- quarto::quarto_render(
    input = 'report_template.qmd',
    output_format = input$report_file_type,
    execute_params = list(name = input$author_name,
                          report_title = input$report_title)
  )
  file.copy(output, file)
}
)

QMD模板代码 #

---
title: "`r params$report_title`"
author: "`r params$name`"
date: "`r format(Sys.time(), '%d %B, %Y')`"
format: html
embed-resources: true
params:
  report_title: "report title"
  name: "author name"
  p_list: list("A", "B")
---

Printing each element of the list...

```{r}
#| echo: true
for(p in eval(parse(text = params$p_list))){
  print(p)
}

Printing the list...

#| echo: true
print(eval(parse(text = params$p_list)))

## 问题根源
1. **`quarto_render`返回值不可靠**：指定`output_format`时，Quarto生成的文件路径可能未被正确返回，或是在Shiny临时环境中路径识别出现偏差，导致`file.copy`找不到源文件。
2. **冗余的文件复制步骤**：原代码先渲染到默认路径再复制到Shiny的下载临时文件，多一步操作增加了出错概率。
3. **模板格式固定冲突**：模板头部默认`format: html`，当指定其他格式时，可能存在格式覆盖不彻底的情况。

## 解决方法
### 方法1：直接输出到Shiny的下载临时文件
修改`content`函数，用`output_file`参数让Quarto直接把渲染结果写入Shiny提供的下载路径，跳过复制步骤：
```r
content = function(file) {
  quarto::quarto_render(
    input = 'report_template.qmd',
    output_format = input$report_file_type,
    output_file = file,  # 直接输出到下载临时文件
    execute_params = list(name = input$author_name,
                          report_title = input$report_title)
  )
}

方法2：确保捕获正确的渲染路径（保留复制步骤） #

如果必须使用file.copy，需添加文件存在校验，并确保input$report_file_type是Quarto支持的标准格式名称（如"pdf"、"docx"、"html"）：

content = function(file) {
  render_output <- quarto::quarto_render(
    input = 'report_template.qmd',
    output_format = input$report_file_type,
    execute_params = list(name = input$author_name,
                          report_title = input$report_title)
  )
  
  if(file.exists(render_output)){
    file.copy(render_output, file, overwrite = TRUE)
    file.remove(render_output)  # 清理临时渲染文件
  } else {
    stop("渲染后的文件不存在，请检查格式名称是否正确或Quarto环境配置")
  }
}

额外优化：模板格式参数化 #

将模板的format改为参数化，避免固定格式与指定输出格式冲突：

---
title: "`r params$report_title`"
author: "`r params$name`"
date: "`r format(Sys.time(), '%d %B, %Y')`"
format: "`r params$output_format`"
embed-resources: true
params:
  report_title: "report title"
  name: "author name"
  p_list: list("A", "B")
  output_format: "html"
---

同时在quarto_render中传入格式参数：

execute_params = list(name = input$author_name,
                      report_title = input$report_title,
                      output_format = input$report_file_type)

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