r - 有没有办法在 Shiny 的情况下调用关闭服务器进程的函数？

Question

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

Answer 1

正如 @jdarrison 的评论中提到的，您可以在 Shiny 的服务器中使用 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)