Allow dbplyr::in_schema; Closes rstudio#468

brancengregory · Apr 12, 2023 · 1971646 · 1971646
1 parent d92d7e2
commit 1971646
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -825,7 +825,13 @@ get_tbl_information_dbi <- function(tbl) {
 
     # nocov start
 
-    db_tbl_name_no_schema <- gsub(".*\\.", "", db_tbl_name)
+    if (length(db_tbl_name) == 1) {
+      db_tbl_name_no_schema <- gsub(".*\\.", "", db_tbl_name)
+    } else if (length(db_tbl_name) == 2) {
+      db_tbl_name_no_schema <- db_tbl_name[2]
+    } else {
+      stop("db_tbl_name has unexpected length")
+    }
 
     q_types <-
       as.character(