如何在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月份发布了一系列关于连接数据库的最佳实践的文章.简单的答案是使用池(参见此处和此处).为简单起见,您需要定义一次池,它将处理和管理连接,根据需要打开和关闭它们.应用程序断开连接后,池将自动关闭所有连接.

不幸的是,池包不适用于SQL Server和ODBC.对于这种情况(或者,如果你不希望使用池),他们建议使用on.exit服务器函数内部小号.

例如:

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

... # your stuff here
})