feat: warn if user calls get_connection with untested driver

ssi-dk · Sep 4, 2023 · dcca91e · dcca91e
1 parent 8c3264f
commit dcca91e
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/R/connection.R b/R/connection.R
@@ -49,6 +49,15 @@ get_connection <- function(drv = RPostgres::Postgres(),
   checkmate::assert_character(timezone, null.ok = TRUE)
   checkmate::assert_character(timezone_out, null.ok = TRUE)
 
+  supported_drivers <- c(
+    "PqDriver",
+    "SQLiteDriver"
+  )
+
+  if (!class(drv) %in% supported_drivers) {
+    warning("Driver of class'", class(drv), "' is currently not fully supported and SCDB may not perform as expected.")
+  }
+
   # Set PostgreSQL-specific options
   if (inherits(drv, "PqDriver")) {
     if (is.null(timezone)) timezone <- Sys.timezone()