如何恢复R Shiny应用与SQL Server的连接？部署后频繁断开排查

非代码层面的常见诱因 #

• Posit Connect服务器与SQL Server之间的网络超时：多数服务器会自动断开闲置1小时的TCP连接，刚好匹配你遇到的1小时后崩溃的时间点。
• ODBC驱动版本不匹配：本地使用的ODBC Driver 17版本和Posit Connect服务器上的版本存在差异，小版本更新可能引发连接稳定性问题。
• 数据库端连接限制：SQL Server可能设置了连接超时阈值，或对同一客户端的连接数有限制，应用运行中未正确释放连接会触发该限制。

代码层面可能的问题类型 #

• 未正确释放数据库连接：用dbConnect()创建连接后，未在使用完毕调用dbDisconnect()，或是将连接放在global.R等全局环境中，导致连接长期闲置被服务器断开，且无法自动重建。
• 连接字符串缺少保活参数：硬编码的连接字符串里没有设置KeepAlive=1、ConnectionTimeout=300这类参数，容易触发网络层面的闲置断开机制。
• 无连接异常处理与重连逻辑：应用中的定时或持续数据库查询，未捕获通信链接失败的错误，也没有重连逻辑，一旦连接断开就直接崩溃，无法自行恢复。
• 全局连接复用冲突：在Shiny全局环境创建的连接会被所有会话共享，当某个会话异常断开时，可能导致整个连接失效，进而引发应用崩溃。

临时解决方案优化（替代加注释重部署） #

• 添加连接重连逻辑：用tryCatch()包裹数据库操作代码，当捕获到通信链接失败错误时，自动重新调用dbConnect()建立新连接。
• 调整ODBC连接参数：在连接字符串中加入KeepAlive=1（保持连接活跃）、ConnectionTimeout=300（延长连接超时）、LoginTimeout=60（延长登录超时）等参数。
• 使用连接池管理连接：借助pool包自动处理连接的创建、复用与释放，避免闲置连接被断开的问题，示例代码：

library(pool)
# 创建连接池
pool <- dbPool(
  drv = odbc::odbc(),
  Driver = "ODBC Driver 17 for SQL Server",
  Server = "你的服务器地址",
  Database = "目标数据库",
  UID = "用户名",
  PWD = "密码",
  KeepAlive = 1,
  ConnectionTimeout = 300
)

# 使用连接池执行查询
data <- dbGetQuery(pool, "SELECT * FROM 你的表名")

# 应用停止时关闭连接池
onStop(function() {
  poolClose(pool)
})

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