如何解决Shiny中downloadHandler下载本地Excel时的文件未找到错误

我来帮你梳理下问题所在，以及对应的解决方案：

核心问题拆解 #

你遇到的“文件未找到”和下载失效，主要是两个细节没处理对：

1. 文件路径错误 #

你的Excel文件存在www文件夹里，但代码里read_excel('indexation_tool_excel.xlsx')是在应用根目录查找文件，自然找不到。得把路径补全为www/indexation_tool_excel.xlsx。

2. Excel文件的处理逻辑不对 #

PPT的处理是read_pptx读取演示文稿对象，再通过print输出到连接——这是officer包的专属特性。但read_excel读出来的是数据框（dataframe），直接print数据框到输出连接，根本生成不了有效的Excel文件，下载后的文件要么损坏要么格式错误。

正确解决方案 #

根据你的需求（下载存储在应用目录的原Excel文件），分两种场景处理：

场景1：直接下载原文件（无需修改） #

最简单的方式是直接复制本地文件到下载连接，不用读取内容再折腾：

shinyUI(
  downloadLink("dl_excel_calc", label = "Excel Version")
)

shinyServer(function(input, output, session) {
  output$dl_excel_calc <- downloadHandler(
    filename = function() {
      paste0("indexation_tool_excel - ", Sys.Date(), ".xlsx")
    },
    content = function(con) {
      # 直接复制www文件夹里的原文件到输出连接
      file.copy("www/indexation_tool_excel.xlsx", con)
    }
  )
})

场景2：需要修改Excel内容后再下载 #

如果要在下载前调整文件内容（比如更新数据），可以用writexl或openxlsx包重新写入：

library(readxl)
library(writexl)

shinyServer(function(input, output, session) {
  output$dl_excel_calc <- downloadHandler(
    filename = function() {
      paste0("indexation_tool_excel - ", Sys.Date(), ".xlsx")
    },
    content = function(con) {
      # 读取原文件
      df <- read_excel("www/indexation_tool_excel.xlsx")
      # 这里可添加修改逻辑，比如：
      # df$updated_at <- Sys.Date()
      # 将修改后的数据写入连接
      write_xlsx(df, con)
    }
  )
})

额外提醒 #

• 确认www文件夹在Shiny应用根目录，文件名拼写完全一致（Linux服务器上大小写敏感）；
• 若用openxlsx包，写入方法是write.xlsx(df, con)，逻辑和上面一致。

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