R Shiny通过actionButton下载保留原格式Excel的默认路径问题

问题说明 #

原有代码逻辑为接收用户上传的Excel文件，保留原格式新增工作表后导出，存在核心逻辑偏差与代码bug：

• 服务端直接执行saveWorkbook仅会将文件保存在Shiny服务运行的环境中（部署服务的服务器/本地运行时的脚本所在目录），无权直接写入访问用户的本地下载文件夹
• 原代码存在重复定义server、前端跳转指向不存在的test.xlsx、未判断用户是否上传文件的问题
• 不需要硬编码本地下载文件夹路径：浏览器触发下载行为时，会自动按照用户自身的浏览器设置，将文件保存到默认下载目录，无需代码干预

具体实现代码 #

首先加载依赖包：

library(shiny)
library(shinyjs)
library(openxlsx)

完整可运行应用逻辑：

ui <- fluidPage(
  fileInput(inputId = "file", label = "上传Excel文件", accept = c(".xlsx")),
  useShinyjs(), 
  actionButton("showtxt", "生成并下载文件")
)

server <- function(input, output, session){
  # 映射会话临时目录为可访问静态路由
  addResourcePath(prefix = "tmp", directoryPath = tempdir())
  
  observeEvent(input$showtxt,{
    # 未上传文件时直接提示返回
    if(is.null(input$file)){
      showNotification("请先上传Excel文件", type = "warning")
      return()
    }
    
    # 加载用户上传的原始工作簿
    wb2 <- openxlsx::loadWorkbook(file = input$file$datapath)
    df_1 <- data.frame("DF"= c(1:3))      
    addWorksheet(wb = wb2, sheetName = "Parameters1")
    writeData(wb2, "Parameters1", df_1, startCol = 1, startRow = 2, rowNames = TRUE)
    
    # 生成带时间戳的唯一临时文件名，避免多用户访问时文件冲突
    out_file <- file.path(tempdir(), paste0("导出结果_", round(as.numeric(Sys.time()), 0), ".xlsx"))
    saveWorkbook(wb2, out_file, overwrite = TRUE)
    
    # 延迟100ms等待文件写入完成后，前端触发下载，浏览器自动保存到用户默认下载文件夹
    delay(100, runjs(sprintf("window.open('%s')", gsub("\\\\", "/", file.path("tmp", basename(out_file))))))
  })
}

shinyApp(ui=ui,server=server) 

实现说明 #

• 全程通过actionButton触发逻辑，不需要在UI放置downloadButton类可见元素，符合使用要求
• 所有下载行为由客户端浏览器接管，自动遵循用户设置的默认下载位置（适配Windows、macOS等不同系统的默认下载目录，也兼容用户自定义修改的下载路径），服务端不需要做任何路径配置
• 生成的文件存在Shiny会话临时目录中，不会在脚本文件夹残留冗余文件，多用户同时访问也不会出现文件覆盖问题
• 增加了文件上传校验、写入延迟等待逻辑，解决原代码的运行异常问题

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