Ensure database connections are clossed on exit, even if script fails

SAFEHR-data · Aug 21, 2024 · 52d1e00 · 52d1e00
1 parent 65f9c85
commit 52d1e00
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/dev/omop_analyses/analyse_omop_cdm.R b/dev/omop_analyses/analyse_omop_cdm.R
@@ -8,6 +8,7 @@ version <- Sys.getenv("TEST_DB_OMOP_VERSION")
 con <- DBI::dbConnect(duckdb::duckdb(
   dbdir = glue::glue("{dir}/{name}_{version}_1.0.duckdb")
 ))
+withr::defer(DBI::dbDisconnect(con))
 
 # Function to execute one or more SQL queries and clear results
 create_results_tables <- function(con, sql) {

diff --git a/dev/test_db/setup_test_db.R b/dev/test_db/setup_test_db.R
@@ -9,6 +9,7 @@ con <- DBI::dbConnect(
     )
   )
 )
+withr::defer(DBI::dbDisconnect(con))
 
 # Use 'cdm_from_con' to load the dataset and verify integrity
 CDMConnector::cdm_from_con(
-Original file line number
+Diff line change
@@ Expand Up / @@ -9,6 +9,7 @@ con <- DBI::dbConnect( @@
         )
       )
     )
+    withr::defer(DBI::dbDisconnect(con))
     # Use 'cdm_from_con' to load the dataset and verify integrity
     CDMConnector::cdm_from_con(
@@ Expand Down @@