如何避免浏览器中的R Shiny页面出现超时断开会话的问题

完全可以通过Shiny应用本身的配置解决该问题，不需要修改用户浏览器设置，可采用以下几种方案搭配使用：

1. 前端心跳保活（优先推荐，实现成本最低） #

现代浏览器的非活动标签休眠机制，核心判定逻辑是标签页是否存在持续的用户交互或网络请求。你可以在Shiny应用中添加轻量的前端心跳机制，定期向后端发送极小的请求，让浏览器判定该标签页处于活跃状态，不会被休眠回收。
实现代码示例：

library(shiny)

ui <- fluidPage(
  # 你的原有UI代码
  tags$script(HTML("
    // 每30秒向后端发送一次心跳请求
    setInterval(function() {
      Shiny.setInputValue('frontend_heartbeat', Math.random(), {priority: 'event'});
    }, 30000);
  "))
)

server <- function(input, output, session) {
  # 监听心跳请求，无需执行额外业务逻辑，仅需保持前后端交互链路活跃
  observeEvent(input$frontend_heartbeat, {})
  
  # 你的原有业务逻辑
}

该方案几乎不会增加前后端的性能负担，对用户完全无感知，兼容所有主流浏览器。

2. 会话状态持久化+自动恢复（兜底方案） #

如果遇到极端情况（比如用户网络临时中断、浏览器强制回收标签），可以通过会话状态持久化实现自动恢复，避免用户重复操作：

• 以session$token作为当前用户会话的唯一标识，将用户上传的文件信息、分析进度、中间结果等核心状态定期存储到后端临时目录或缓存中
• 应用前端加载时，先查询当前会话对应的已存储状态，如果存在未完成/已完成的分析任务，自动恢复到对应页面状态，无需用户重新上传文件启动分析
  实现代码示例：

server <- function(input, output, session) {
  session_id <- session$token
  # 每个会话对应唯一的状态存储文件
  state_path <- file.path(tempdir(), paste0("shiny_state_", session_id, ".rds"))
  
  # 应用启动时检查是否有已存储的历史状态
  if (file.exists(state_path)) {
    saved_state <- readRDS(state_path)
    # 自动恢复进度条、分析结果等前端展示内容
  }
  
  # 分析任务执行过程中定期更新存储状态
  observeEvent(input$start_analysis, {
    # 你的分析逻辑
    for (progress in 1:100) {
      # 执行单步分析
      saveRDS(list(progress = progress, result = 你的中间结果), state_path)
      # 更新前端进度条
    }
  })
}

3. 长时任务异步解耦（超12小时超长任务推荐） #

如果你的分析任务普遍超过12小时，建议将分析任务与Shiny会话完全解耦，使用future、callr等工具将分析任务放到独立的R进程中运行：

• 任务执行过程完全独立于Shiny前后端连接，就算前端断开连接、标签被回收，后端任务仍会正常执行
• 用户重新打开标签页后，可直接查询任务进度和最终结果，不会丢失任务数据

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