r 在Shiny中以会话结束断开数据库

Posted 2021-05-23

library(shiny)
library(DBI)
library(RPostgreSQL)

ui = basicPage(
)

server = function(input, output, session) {
  con <- dbConnect(PostgreSQL(),
                   dbname = "myDB",
                   host = "12.10.11.901",
                   user = "user",
                   password = "password")

  session$onSessionEnded(function() {
    dbDisconnect(con)
})
}