Disconnect database on session ended in Shiny. #r #shiny #dbi

dbDisconnect_onSessionEnded.R

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)
})
}