r - 有没有办法在闪亮的关闭服务器进程时调用函数？

Question

我有一个闪亮的应用程序，在其中我与数据库和其他组件建立了一些连接。我希望在应用程序关闭时关闭这些连接。有没有办法在闪亮的应用程序关闭时执行功能？

Answer 1

如前所述，您可以在会话结束时使用session$onSessionEnded. 如果您为每个用户会话建立一个数据库连接，这将起作用，但通常您可能会在多个用户之间共享一个数据库连接。在这种情况下，您需要在服务器函数终止时运行代码。这可以使用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 2

正如@jdharrison 的评论中提到的，您可以在闪亮的服务器中使用 session$onSessionEnded。

这个极其简单的示例将在您关闭应用程序时向控制台打印一条消息，但您可以将该打印语句替换为一些关闭数据库连接的语句。

library(shiny)
ui <- fluidPage(
   #Empty UI
)

server <- function(input, output,session) {

  session$onSessionEnded(function() {
    print('hello, the session has ended')
  })
}


shinyApp(ui = ui, server = server)