如何在Shiny应用中添加自定义PDF报告至Zip包供下载

核心问题分析 #

你遇到的报错本质是Shiny运行时的工作目录与Rmd文件实际路径不匹配，且生成PDF时未明确指定输出到统一的临时目录，导致打包时无法定位文件。

解决方案步骤 #

1. 正确定位Rmd文件路径

不要直接使用相对路径调用Rmd，需根据运行环境获取准确路径：

• 若Rmd与Shiny脚本在同一目录，用here::here("report.Rmd")（需安装here包）
• 部署到Shiny Server时，用file.path(getwd(), "report.Rmd")获取当前app目录下的Rmd路径

2. 统一临时目录管理

创建专属临时子目录，避免与系统其他临时文件冲突，同时将CSV和PDF统一输出到该目录：

temp_dir <- file.path(tempdir(), "shiny_report")
dir.create(temp_dir, recursive = TRUE, showWarnings = FALSE)

3. 生成PDF时明确路径参数

调用rmarkdown::render()时，必须指定output_file为临时目录下的完整路径，同时设置knit_root_dir确保knit时的工作目录正确。

完整示例代码 #

ui.R

ui <- fluidPage(
  titlePanel("生成PDF报告并打包下载"),
  sidebarLayout(
    sidebarPanel(
      numericInput("n", "样本数量", value = 100),
      downloadButton("download_zip", "下载Zip包（含CSV+PDF）")
    ),
    mainPanel(
      tableOutput("preview_table")
    )
  )
)

server.R

server <- function(input, output) {
  # 生成可响应的数据
  data <- reactive({
    data.frame(
      id = 1:input$n,
      value = rnorm(input$n)
    )
  })
  
  output$preview_table <- renderTable({
    head(data())
  })
  
  output$download_zip <- downloadHandler(
    filename = function() {
      paste0("report_", Sys.Date(), ".zip")
    },
    content = function(file) {
      # 创建专属临时目录
      temp_dir <- file.path(tempdir(), "shiny_report")
      dir.create(temp_dir, recursive = TRUE, showWarnings = FALSE)
      
      # 保存CSV到临时目录
      csv_path <- file.path(temp_dir, "data.csv")
      write.csv(data(), csv_path, row.names = FALSE)
      
      # 定位Rmd文件（假设与app脚本同目录）
      rmd_path <- here::here("report.Rmd")
      
      # 生成PDF到临时目录
      pdf_path <- file.path(temp_dir, "report.pdf")
      rmarkdown::render(
        input = rmd_path,
        output_file = pdf_path,
        params = list(data = data()), # 传递自定义参数给Rmd
        knit_root_dir = getwd() # 确保knit工作目录正确
      )
      
      # 切换到临时目录打包，避免层级混乱
      withr::with_dir(temp_dir, {
        zip(file, list.files(temp_dir))
      })
    }
  )
}

shinyApp(ui, server)

Rmd模板（report.Rmd）

---
title: "自定义数据报告"
output: pdf_document
params:
  data: NULL
---

## 数据概述
本次报告包含`r nrow(params$data)`条数据，前5行预览：

```{r echo=FALSE}
head(params$data)

统计摘要 #

summary(params$data$value)

---

### 注意事项
- 提前安装依赖包：`install.packages(c("shiny", "rmarkdown", "here", "withr"))`
- 部署时确保Rmd文件与Shiny app文件放在同一目录下
- 禁止在`render()`中使用相对路径输出，必须指定完整的`output_file`路径

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