Hello tested. works as expected I put the callback Function into my global.R file
con_sql_server <- pool::dbPool(drv = odbc::odbc(), dsn = "my_dsn",
Uid = "my_uid",
Pwd = "my_pwd")
con_postgres <- pool::dbPool(drv = odbc::odbc(), dsn = "PostgreSQL")
onStop(function() {
cat("Closing Database Connections")
pool::poolClose(con_sql_server)
pool::poolClose(con_postgres)
})
Thank's a lot!