Shiny应用中能否调整大体积PNG文件的下载执行逻辑？

首先要明确：受浏览器安全沙箱机制限制，部署在服务器上通过浏览器访问的Shiny应用，无法直接实现「先让用户选择存储路径、再后台生成PNG文件」的需求。浏览器不允许网页侧提前获取用户本地的存储路径，下载触发的文件选择弹窗是浏览器原生控制的，仅能在待下载文件准备完成后由浏览器主动唤起。

补充：如果你的Shiny应用仅在本地桌面环境运行、不需要部署到服务器给外部用户访问，可以使用shinyFiles包实现先让用户选择本地存储路径，再生成文件写入对应路径的逻辑，这种场景下不受浏览器沙箱限制。

无反馈等待问题可以通过添加操作反馈提示解决，核心思路是点击下载按钮后立刻给用户明确的加载提示，等文件生成完成、浏览器弹出保存窗口后再取消提示，优化使用体验。

library(shiny)
library(ggplot2)
library(shinyjs)

foo <- data.frame(
  x = sample(seq(1, 20, by = 0.01), 5*1e5, replace = TRUE),
  y = sample(seq(1, 20, by = 0.01), 5*1e5, replace = TRUE)
)

ui <- fluidPage(
  useShinyjs(), # 引入shinyjs工具
  # 自定义加载提示样式
  tags$style(HTML("
    .loading-text {
      color: #2c3e50;
      font-weight: 500;
      margin-left: 10px;
      display: none;
    }
  ")),
  fluidRow(
    column(4, 
      downloadButton('foo'),
      span(class = "loading-text", "正在生成绘图，请稍候...")
    )
  ),
  plotOutput("test")
)

server <- function(input, output) {
  output$test <- renderPlot(ggplot(foo, aes(x, y)) + geom_point())
  
  # 监听下载按钮点击，立刻显示加载提示
  onclick("foo", {
    disable("foo") # 禁用按钮避免重复点击
    show("loading-text")
  })
  
  output$foo = downloadHandler(
    filename = 'test.png',
    content = function(file) {
      ggsave(file)
      # 文件生成完成后恢复按钮状态、隐藏提示
      enable("foo")
      hide("loading-text")
    }
  )
}

shinyApp(ui, server)

• 用户点击下载按钮后，按钮立刻被禁用，同时出现「正在生成绘图，请稍候...」的提示，用户可以明确感知操作已触发
• 绘图生成完成、浏览器弹出保存窗口后，提示自动消失，按钮恢复可用状态
• 可以根据需要替换文字提示为加载动画、进度条等其他样式，进一步提升体验

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