R-Shiny生成PDF仅存为临时文件，如何实现本地自定义保存？

问题概述 #

开发的R-Shiny应用可生成PDF报告，但仅生成随机命名的临时文件，需手动保存；同时希望Rmarkdown、图片等资源文件与应用同目录，而非复制到临时目录。运行RStudio官方示例也存在相同问题，输出临时文件路径如：C:\Users\SGrass\AppData\Local\Temp\RtmpsrlxyW\file32a43867233b.pdf。

解决方案 #

1. 实现用户自主选择保存路径 #

Shiny的downloadHandler在浏览器环境下会自动触发系统的文件保存对话框（支持笔记本、手机、平板等多设备）。如果本地用RStudio预览窗口运行未弹出对话框，需：

• 点击预览窗口右上角的「打开在浏览器」按钮，用独立浏览器运行应用
• 确保浏览器未禁用下载弹窗

还可通过动态设置filename参数，让文件名包含用户输入或时间戳，示例：

filename = function() {
  paste0("报告_", Sys.Date(), "_", input$slider, ".pdf")
}

2. 资源文件与应用同目录，无需复制到临时目录 #

无需将Rmd文件复制到临时目录，直接使用应用根目录下的文件即可。通过getwd()或here包获取应用根目录，确保资源路径正确：

修改后的完整代码

library(shiny)
# 可选：用here包更便捷管理路径
# library(here)

ui = fluidPage(
  sliderInput("slider", "滑块", 1, 100, 50),
  downloadButton("report", "下载报告")
)

server = function(input, output) {
  output$report <- downloadHandler(
    # 动态生成文件名，也可固定为"report.pdf"
    filename = function() {
      paste0("动态报告_", input$slider, "个点_", Sys.Date(), ".pdf")
    },
    content = function(file) {
      # 获取应用根目录下的report.Rmd，无需复制到临时目录
      # 用here包的话直接写 here("report.Rmd")
      report_path <- file.path(getwd(), "report.Rmd")
      
      params <- list(n = input$slider)
      
      rmarkdown::render(
        input = report_path,
        output_file = file,
        params = params,
        envir = new.env(parent = globalenv())
      )
    }
  )
}

shinyApp(ui = ui, server = server)

配套的report.Rmd文件（放在应用同目录）

---
title: "动态报告"
output: pdf_document
params:
  n: NA
---

```{r}
params$n

包含r params$n个随机点的散点图：

plot(rnorm(params$n), rnorm(params$n))

### 关键说明
- 运行应用时，确保工作目录是应用所在目录（RStudio中可通过「Session -> Set Working Directory -> To Source File Location」设置）
- 若部署到服务器（如Shiny Server），需确保应用目录有读写权限，资源文件路径依然有效

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