Shiny中downloadHandler报错文件不存在但临时文件实际存在求助

可能原因 #

• 系统临时目录权限限制：Windows默认临时目录的权限配置，可能导致Shiny进程无法完成文件到浏览器的传递流程——尽管文件已成功生成，但浏览器无法识别到有效访问路径，从而报错文件不存在。
• 安全软件拦截：本地杀毒软件、防火墙或隐私防护工具，可能拦截了Shiny与浏览器之间的临时文件传输请求，使得浏览器无法获取到文件。
• 旧版Shiny Bug：使用的Shiny版本存在临时文件生命周期管理的缺陷，导致文件还未完成传递就被系统判定为“不存在”。

解决办法 #

1. 使用自定义临时目录
   避开系统默认临时目录的权限问题，手动指定一个权限开放的目录作为Shiny的临时存储：

   server <- function(input, output) {
     # 创建并设置自定义临时目录（可自行修改路径）
     custom_temp <- "D:/ShinyTemp"
     dir.create(custom_temp, showWarnings = FALSE)
     shinyOptions(tempdir = custom_temp)
     
     data <- mtcars
     output$download_csv <- downloadHandler(
       filename = "data.csv",
       content = function(file) {
         write.csv(data, file, row.names = FALSE) # 可选：移除行号优化CSV格式
       }
     )
   }
   

2. 排查安全软件拦截
   暂时关闭本地杀毒、防火墙等安全工具，重新测试下载功能。如果问题消失，将Shiny运行进程或自定义临时目录添加到安全软件的白名单中。

3. 更新Shiny至最新版本
   运行以下命令更新Shiny，修复旧版本可能存在的已知Bug：

   install.packages("shiny")
   

4. 调整filename为函数形式
   将filename参数改为返回字符串的函数，部分场景下可解决路径解析或缓存问题：

   output$download_csv <- downloadHandler(
     filename = function() {
       "data.csv"
     },
     content = function(file) {
       write.csv(data, file)
     }
   )
   

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