Shiny Server无法下载大体积PDF文件的问题求助

核心问题在于downloadHandler内部生成PDF时，Shiny Server进程的响应耗时超过Nginx的连接超时限制，导致Nginx判定上游连接异常，返回502错误；而外部生成PDF是先完成文件写入，downloadHandler仅做文件读取，耗时极短，不会触发超时。结合Nginx日志的upstream prematurely closed connection报错，以下是针对性解决方案：

1. 调整Nginx连接超时与缓冲配置 #

修改Nginx配置文件（如/etc/nginx/sites-available/shiny或/etc/nginx/nginx.conf），在对应server或http块中添加/更新参数，延长超时时间并适配大文件传输：

# 延长与Shiny Server的连接超时
proxy_connect_timeout 600s;
proxy_send_timeout 600s;
proxy_read_timeout 600s;

# 优化大文件传输缓冲
proxy_buffering on;
proxy_buffer_size 128k;
proxy_buffers 4 256k;
proxy_busy_buffers_size 256k;
proxy_max_temp_file_size 0; # 禁用临时文件，避免磁盘IO瓶颈

修改后重启Nginx：

sudo systemctl restart nginx

2. 优化Shiny Server的超时与资源配置 #

编辑Shiny Server配置文件（/etc/shiny-server/shiny-server.conf），调整应用超时与请求大小限制：

server {
  listen 3838;
  location / {
    site_dir /srv/shiny-server;
    log_dir /var/log/shiny-server;
    directory_index on;
    # 允许更大的请求/响应尺寸
    max_request_size 30M;
    # 延长应用初始化与闲置超时
    app_init_timeout 600;
    app_idle_timeout 600;
  }
}

重启Shiny Server生效：

sudo systemctl restart shiny-server

3. 改造downloadHandler内的PDF生成逻辑 #

既然外部生成PDF可正常工作，可将PDF生成逻辑从downloadHandler中剥离，改为先异步生成文件，再通过downloadHandler提供下载，避免长时间阻塞Shiny响应线程：

library(future)
plan(multisession) # 启用多进程异步

output$download_pdf <- downloadHandler(
  filename = function() paste0("plots_", Sys.Date(), ".pdf"),
  content = function(file) {
    # 创建临时文件存储生成的PDF
    temp_pdf <- tempfile(fileext = ".pdf")
    
    # 异步执行PDF生成任务
    future({
      pdf(temp_pdf, width = 10, height = 8)
      # 替换为你的图表生成代码
      for (i in 1:100) {
        print(ggplot(data.frame(x = 1:10, y = rnorm(10)), aes(x, y)) + geom_point())
      }
      dev.off()
    })
    
    # 等待生成完成后复制到下载输出文件
    while (!file.exists(temp_pdf)) {
      Sys.sleep(0.5)
    }
    file.copy(temp_pdf, file)
    file.remove(temp_pdf)
  }
)

同时可优化PDF生成效率：使用patchwork或gridExtra批量排版图表，减少循环中重复的设备初始化操作；清理未使用的变量释放内存。

4. 排查EC2实例资源限制 #

• 检查内存使用：执行free -h，确认生成PDF时内存未耗尽（8GB内存应对14MB级PDF足够，但需排查代码是否存在内存泄漏）
• 检查CPU负载：执行top，若CPU持续100%，需优化图表生成代码（如减少冗余计算）
• 检查系统日志：执行grep -i "oom-killer" /var/log/syslog，确认Shiny进程未被系统OOM Killer强制终止

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