在Shiny的downloadHandler中使用zip()报“invalid path argument”错误

问题根源 #

在Shiny的downloadHandler中，content参数里的file是一个临时文件连接，而base R原生的zip()函数对这类连接的兼容性不佳，尤其是Windows环境下，会直接抛出"invalid path argument"错误，同时触发"zipfile must be a string or a connection"警告。你尝试的先生成Zip再复制的方式，问题出在路径处理不严谨（比如filecopy应为file.copy，且未指定完整源路径）。

可行解决方案 #

方案1：使用临时目录生成Zip后复制（依赖base R）

通过临时目录生成完整的Zip文件，再将其内容复制到downloadHandler的临时连接中：

output$export_excel_zip <- downloadHandler(
  filename = function() {
    "external_output_excel.zip"
  },
  content = function(file) {
    source("99_export-external.R", local = TRUE)
    
    # 获取带完整路径的文件列表，避免路径拼接错误
    file_list <- list.files("download/external", full.names = TRUE)
    today_date <- str_sub(Sys.time(), 1, 10)
    
    # 精准过滤：文件名含当日日期且为xlsx文件（注意转义点号）
    files_to_zip <- file_list[
      str_detect(basename(file_list), today_date) & 
      str_detect(file_list, "\\.xlsx$")
    ]
    
    # 创建临时目录存放Zip文件
    temp_zip_path <- file.path(tempdir(), "temp_export.zip")
    
    # 生成Zip
    zip(zipfile = temp_zip_path, files = files_to_zip)
    
    # 将临时Zip复制到downloadHandler的输出连接
    file.copy(temp_zip_path, file)
    
    # 可选：清理临时文件
    file.remove(temp_zip_path)
  },
  contentType = "application/zip"
)

方案2：使用zip包替代base R函数（更简洁）

zip包专门优化了文件连接的支持，能直接接受downloadHandler的file参数：

1. 先安装包：

install.packages("zip")

2. 修改代码：

library(zip)

output$export_excel_zip <- downloadHandler(
  filename = function() {
    "external_output_excel.zip"
  },
  content = function(file) {
    source("99_export-external.R", local = TRUE)
    
    file_list <- list.files("download/external", full.names = TRUE)
    today_date <- str_sub(Sys.time(), 1, 10)
    files_to_zip <- file_list[
      str_detect(basename(file_list), today_date) & 
      str_detect(file_list, "\\.xlsx$")
    ]
    
    # 直接用zip包的zip函数处理临时连接
    zip(zipfile = file, files = files_to_zip)
  },
  contentType = "application/zip"
)

关键细节提示 #

• 过滤文件时用full.names = TRUE获取完整路径，避免手动拼接路径出错
• 匹配xlsx后缀时用\\.xlsx$，确保只匹配真正的Excel文件（防止误匹配含"xlsx"字符串的其他文件）
• 方案1中使用tempdir()获取系统临时目录，避免权限问题

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