如何在 R Shiny 中实现清理例程？

Question

例如，我闪亮的应用程序可能会打开数据库连接

# server.R
db <- dbConnect("SQLite", DB_PATH)
shinyServer(
    ...  # things involving db
)

现在，当 Shiny 会话结束时，如何确保连接 db 正确关闭（通过 dbDisconnect(db)）？确实，应该为每个连接到服务器的客户端执行清理，还是只执行一次？

我只是担心多个用户一直在连接和断开 Shiny 应用程序，如果没有正确清理，他们会留下悬空的数据库连接。事实上，客户可能会在没有警告的情况下断开浏览器，只需关闭浏览器即可。

Answer 1

执行此操作的正确方法是使用session$onSessionEnded 分配一个执行清理的函数。例如，在 server.R 中：

cancel.onSessionEnded <- session$onSessionEnded(function() {
    dbDisconnect(db)
})

然后您可以致电cancel.onSessionEnded 撤消分配。

Answer 2

预先存在的答案对我来说似乎不正确。

• session$onSessionEnded 可以在每个用户断开连接时关闭连接，但在原始问题中，所有用户只有一个连接。尤其是在使用pool 时，您不想为每个用户启动/停止单独的连接。
• on.exit 直接运行，不等到服务器退出。

我认为正确的答案是使用onStop (https://shiny.rstudio.com/reference/shiny/latest/onStop.html)。

示例用法，来自文档：

library(shiny)
shinyApp(
  ui = basicPage("onStop demo"),

  server = function(input, output, session) {
    onStop(function() cat("Session stopped\n"))
  },

  onStart = function() {
    cat("Doing application setup\n")

    onStop(function() {
      cat("Doing application cleanup\n")
    })
  }
)

Answer 3

Rstudio 早在 6 月就发布了一系列关于连接到数据库的最佳实践的文章。简单的答案是使用池（参见here 和here）。为简单起见，您只需定义一次池，它将处理和管理连接，并根据需要打开和关闭它们。应用断开连接后，连接池会自动关闭所有连接。

不幸的是，池包不适用于 SQL Server 和 ODBC。对于这种情况（或者如果您不想使用池），他们建议在您的服务器函数中使用 on.exits。

例如：

getData <- reactive({
cnxn <- dbConnect(...)
on.exit(dbDisconnect(cnxn))

... # your stuff here
})

Answer 4

您可以在 shinyServer 函数定义中使用on.exit(dbDisconnect(db))。