AWS部署R Shiny Server的URL参数断连问题咨询

我之前也碰到过类似的情况，结合你描述的场景——带URL参数的Shiny应用初始访问正常，但过段时间出现断连，大概率是会话超时、负载均衡空闲断开或者资源耗尽这几个常见原因导致的，下面给你一步步排查和解决的方案：

1. 调整Shiny Server的会话超时设置 #

Shiny Server默认会回收长时间无交互的会话，如果用户转发URL后长时间没操作，就会触发断开。

修改配置步骤： #

• 登录AWS上的Shiny Server实例，打开配置文件：sudo nano /etc/shiny-server/shiny-server.conf
• 找到你应用对应的location块（根应用就是location /），添加或修改以下参数：

  location /your-app-name {
    app_idle_timeout 3600;  # 应用空闲1小时后才断开，单位秒
    session_timeout 86400;  # 单个会话最长保留24小时，按需调整
  }
  

• 保存后重启Shiny Server：sudo systemctl restart shiny-server

2. 修复AWS负载均衡（ELB）的空闲超时 #

如果你的Shiny Server放在ELB后面，ELB默认空闲超时是60秒——哪怕用户在看页面但没操作，只要超过60秒没数据传输，ELB就会主动断开连接。

调整ELB设置： #

• 登录AWS EC2控制台，找到你的负载均衡器
• 切换到「属性」标签，找到「空闲超时」选项
• 把超时时间改成300秒（5分钟）甚至更长（比如1800秒=30分钟），保存更改

另外，还可以在Shiny应用里加个心跳机制，定期发送小数据保持连接：
在UI里添加这段JS代码：

tags$script(HTML("
  // 每30秒发送一次随机值作为心跳，避免ELB断开
  setInterval(function() {
    Shiny.onInputChange('heartbeat', Math.random());
  }, 30000);
"))

然后在Server端加个空观察者处理心跳：

observe({
  input$heartbeat  # 不用做实际操作，只是触发数据传输
})

3. 检查AWS实例的资源使用情况 #

如果实例内存或CPU耗尽，Shiny Server会崩溃或强制断开会话。

排查和解决： #

• 用AWS CloudWatch监控实例的CPU、内存使用率（如果没开启内存监控，需要手动安装CloudWatch Agent）
• 如果内存经常超过80%，考虑升级实例规格（比如从t2.micro升到t2.small或t3.medium）
• 在Shiny代码里添加会话结束时的资源清理逻辑，避免内存泄漏：

  session$onSessionEnded(function() {
    # 这里可以关闭数据库连接、清理临时文件等
    rm(list = ls(), envir = environment())
    gc()
  })
  

4. 优化URL参数处理的代码 #

确保你的参数解析和更新逻辑没有导致会话异常，这里给你一个经过优化的示例代码，避免潜在的内存问题：

library(shiny)

ui <- fluidPage(
  checkboxGroupInput("param1", "选择参数1", choices = c(1,2,3,4)),
  sliderInput("param2", "参数2范围", min = 0, max = 100, value = c(0,100)),
  actionButton("submit", "更新URL"),
  
  # 心跳组件
  tags$script(HTML("
    setInterval(function() {
      Shiny.onInputChange('heartbeat', Math.random());
    }, 30000);
  "))
)

server <- function(input, output, session) {
  # 初始化时解析URL参数，只执行一次
  observe({
    query <- parseQueryString(session$clientData$url_search)
    if (!is.null(query$param1)) {
      updateCheckboxGroupInput(session, "param1", selected = strsplit(query$param1, ",")[[1]])
    }
    if (!is.null(query$param2)) {
      vals <- as.numeric(strsplit(query$param2, ",")[[1]])
      updateSliderInput(session, "param2", value = vals)
    }
  }, once = TRUE)
  
  # 提交按钮更新URL
  observeEvent(input$submit, {
    param1_val <- paste(input$param1, collapse = ",")
    param2_val <- paste(input$param2, collapse = ",")
    new_query <- paste0("?param1=", param1_val, "&param2=", param2_val)
    updateQueryString(new_query, mode = "replace")
  })
  
  # 处理心跳
  observe({
    input$heartbeat
  })
  
  # 会话结束清理
  session$onSessionEnded(function() {
    gc()
    cat("会话已结束，资源已清理\n")
  })
}

shinyApp(ui, server)

按照这个流程排查，先从超时设置入手，再检查资源和代码，应该能解决你遇到的断连问题。

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