Add local arg in init_db

ECCC-lavoie-ecotox · Oct 15, 2024 · 8aa4a5a · 8aa4a5a
1 parent 08c43df
commit 8aa4a5a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/db_con.R b/R/db_con.R
@@ -6,8 +6,12 @@
 #' }
 #' 
 #' @export
-init_con <- function(){
-    db <- file.path(db_path(), db_name())
+init_con <- function(local = NULL){
+    if(local){
+        db <- file.path(local)
+    } else (
+        db <- file.path(db_path(), db_name())
+    )
     stopifnot(db |> file.exists())
     return(DBI::dbConnect(RSQLite::SQLite(), db))
 }