Disconnect database on session ended in Shiny. #r #shiny #dbi
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)
})
}