Windows系统ShinyApp无法另存生成CSV并打包ZIP的问题咨询

原代码Windows环境下失效有三个核心问题：

• Windows默认未预装命令行zip工具，直接调用system2("zip")会执行失败，无法生成目标压缩包
• 导出CSV时使用相对路径写入，文件会默认存到app.R所在的工作目录，没有写入Shiny为下载任务分配的临时路径，无法触发浏览器的「另存为」弹窗，还会在应用目录残留冗余CSV文件
• 列表取值语法有误：final_tbl_all[i]取到的是子列表而非数据框本身，导出的CSV会存在格式错误，正确写法应为final_tbl_all[[i]]
• 原代码中options(scipen = 999)位置错误，不属于downloadHandler的合法参数，实际不会生效。

以下代码可在Windows/Linux/macOS全系统正常运行，无需依赖系统预装工具，不会在应用目录残留临时文件：

# 下载结果表
output$downloadTable <- downloadHandler(
  filename = function() {
    "chromosome_count_tables.zip"
  },
  content = function(file) {
    # 关闭科学计数法
    options(scipen = 999)
    # 保留原有数据计算逻辑
    compare_tbl_list <- compare_all(
      files = dataPlotInputBAMSegment(),
      ref = ReferenceInputBAMSegment(),
      window = TRUE,
      per = TRUE,
      compare_from_normal = FALSE
    )

    segment_plot_tbl_all <- segment_tbl_create_all(compare_tbl_list)
    segment_annotation_tbl_all <- segment_annotation_tbl_create_all(segment_plot_tbl_all)
    segment_annotation_tbl_all <- change_color_all(segment_annotation_tbl_all)
    final_tbl_all <- show_table_all(
      files = segment_plot_tbl_all,
      annotation_files = segment_annotation_tbl_all
    )

    # 创建临时目录存放中间CSV文件，避免污染应用工作目录
    temp_workdir <- tempdir()
    # 切换工作目录到临时路径，任务结束/报错后自动切回原路径，不影响应用其他逻辑
    original_workdir <- setwd(temp_workdir)
    on.exit(setwd(original_workdir))

    export_file_list <- c()
    # 循环生成单份CSV文件
    for (i in seq_along(final_tbl_all)) {
      csv_file_name <- paste0(input$fileBAMSegment[i, 1], "_", i, ".csv")
      write.csv(final_tbl_all[[i]], csv_file_name, row.names = FALSE)
      export_file_list <- c(export_file_list, csv_file_name)
    }
    # 调用R基础包自带的zip函数打包，全系统兼容，无需依赖系统命令行工具
    zip(zipfile = file, files = export_file_list)
  },
  # 显式指定文件类型，避免Windows下浏览器识别文件格式错误
  contentType = "application/zip"
)

• 移除对系统命令行zip的依赖，改用R基础utils包自带的zip()函数实现压缩，无需用户额外安装任何工具即可在全系统运行
• 所有中间生成的CSV文件全部写入系统临时目录，任务结束后自动清理，不会在app.R所在目录残留文件
• 修正列表取值语法错误，保证导出的CSV格式符合预期
• 修正options(scipen)的位置，确保关闭科学计数法的配置实际生效
• 显式指定下载文件的MIME类型，避免Windows浏览器误判文件类型导致下载异常
• 通过on.exit()保证工作目录自动还原，即使下载过程中抛出错误也不会干扰应用其他功能的正常运行

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