从Shiny App下载上传PDF并在会话结束时删除文件

当然可以实现你的需求！你之前遇到的问题主要有两个：一是Shiny默认的临时文件路径（input$pdfFile$datapath）无法直接被前端网页访问；二是复制到www目录的文件无法在会话结束时自动清理，会造成文件堆积。下面是一套完美解决这两个问题的方案：

核心思路 #

1. 为每个上传的文件创建会话专属的临时副本，避免不同会话之间的文件冲突
2. 使用session$registerDataObj()创建一个可被前端访问的文件端点，替代直接访问临时目录
3. 通过session$onSessionEnded()注册清理函数，确保会话关闭时自动删除临时文件

完整代码实现 #

library(shiny)
library(DT)

ui <- fluidPage(
  fileInput('pdfFile', 'Upload PDF', multiple = TRUE, accept = c('.pdf')),
  DTOutput('Table')
)

server <- function(input, output, session) {
  # 存储会话专属的临时文件路径
  temp_files <- reactiveVal(list())
  
  observeEvent(input$pdfFile, {
    req(input$pdfFile)
    
    # 为每个上传的PDF创建临时副本
    new_temp_files <- lapply(seq(nrow(input$pdfFile)), function(i) {
      original_path <- input$pdfFile$datapath[i]
      original_name <- input$pdfFile$name[i]
      
      # 创建会话专属的临时文件（用tempfile确保唯一）
      temp_path <- tempfile(fileext = paste0(".", tools::file_ext(original_name)))
      file.copy(original_path, temp_path)
      
      # 注册数据对象，生成可访问的URL
      obj_name <- paste0("pdf_", i)
      session$registerDataObj(
        name = obj_name,
        data = temp_path,
        filter = function(data, req) {
          # 返回文件内容，设置正确的HTTP头
          shiny:::httpResponse(
            200,
            list("Content-Type" = "application/pdf",
                 "Content-Disposition" = sprintf("attachment; filename=\"%s\"", original_name)),
            readBin(data, "raw", file.info(data)$size)
          )
        }
      )
      
      # 返回文件名、原始名和下载URL
      list(
        name = original_name,
        datapath = temp_path,
        download_url = session$registerDataObjURL(obj_name)
      )
    })
    
    temp_files(new_temp_files)
  })
  
  # 渲染DT表格，嵌入下载链接
  output$Table <- renderDT({
    req(temp_files())
    
    # 转换为数据框
    pdf_df <- do.call(rbind, lapply(temp_files(), function(x) {
      data.frame(
        Name = x$name,
        Download = sprintf('<a href="%s" target="_blank">Download PDF</a>', x$download_url),
        stringsAsFactors = FALSE
      )
    }))
    
    datatable(pdf_df, escape = FALSE, options = list(
      columnDefs = list(list(targets = 1, width = "200px"))
    ))
  })
  
  # 会话结束时清理所有临时文件
  session$onSessionEnded(function() {
    lapply(temp_files(), function(x) {
      if(file.exists(x$datapath)) {
        file.remove(x$datapath)
      }
    })
  })
}

shinyApp(ui = ui, server = server)

关键部分解释 #

• 会话专属临时文件：用tempfile()创建的文件会存储在系统临时目录，每个会话的文件名都是唯一的，不会互相干扰
• session$registerDataObj()：这个函数会为每个文件生成一个唯一的URL（比如/datapdf_1），前端通过这个URL可以直接获取文件内容，无需暴露真实的临时文件路径
• HTTP响应头设置：在filter函数里设置Content-Type和Content-Disposition，确保浏览器识别这是PDF文件并触发下载
• 自动清理：session$onSessionEnded()会在用户关闭浏览器标签、刷新页面或者会话超时后触发，自动删除当前会话创建的所有临时文件

为什么之前的方法不行？ #

• 直接用input$pdfFile$datapath：Shiny的临时文件目录是受保护的，前端网页无法直接访问这个路径，所以链接会失效
• 复制到www目录：www目录是Shiny的静态资源目录，所有会话都能访问，而且Shiny不会自动清理这里的文件，长期运行会导致磁盘空间被占用

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