Adapt to new Arrow DBI generics

r-dbi · Oct 13, 2022 · 87c162a · 87c162a
1 parent 8126953
commit 87c162a
Showing 1 changed file with 15 additions and 4 deletions.
diff --git a/R/spec-compliance-methods.R b/R/spec-compliance-methods.R
@@ -55,8 +55,8 @@ spec_compliance_methods <- list(
     dbi <- asNamespace("DBI")
 
     dbi_generics <- grep("^[.]__T__db", getNamespaceExports(dbi), value = TRUE)
-    . <- gsub("^[.]__T__(.*):DBI$", "\\1", dbi_generics)
-    . <- setdiff(., c(
+    clean_dbi_generics <- gsub("^[.]__T__(.*):DBI$", "\\1", dbi_generics)
+    active_dbi_generics <- setdiff(clean_dbi_generics, c(
       "dbDriver",
       "dbUnloadDriver",
       "dbListConnections",
@@ -66,8 +66,19 @@ spec_compliance_methods <- list(
       "dbCallProc",
       "dbGetConnectArgs"
     ))
-    . <- c(., "Id")
-    dbi_names <- .
+    dbi_names <- c(active_dbi_generics, "Id")
+
+    if (as.package_version(ctx$tweaks$dbitest_version) < "1.7.3") {
+      dbi_names <- setdiff(dbi_names, c(
+        "dbGetStream",
+        "dbAppendStream",
+        "dbStream",
+        "dbWriteStream",
+        "dbSendQueryStream",
+        "dbStreamTable",
+        "dbCreateFromStream"
+      ))
+    }
 
     # Suppressing warning "... may not be available when loading"
     exported_names <- suppressWarnings(callr::r(