Create src_ classes from multiple DBI inheritance

tidyverse · Jun 20, 2022 · 906cabf · 906cabf
1 parent 34b2528
commit 906cabf
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/src_dbi.R b/R/src_dbi.R
@@ -123,7 +123,9 @@ src_dbi <- function(con, auto_disconnect = FALSE) {
     disco <- db_disconnector(con, quiet = is_true(auto_disconnect)) # nocov
   }
 
-  subclass <- paste0("src_", class(con)[[1]])
+  con_classes <- extends(class(con))[
+    grepl("(?<!DBI)Connection$", extends(class(con)), perl = TRUE)]
+  subclass <- paste0("src_", con_classes)
 
   structure(
     list(