test: Fix checks without suggested packages

r-dbi · Nov 8, 2023 · 507f590 · 507f590
1 parent b1a85ad
commit 507f590
Show file tree

Hide file tree

Showing 9 changed files with 17 additions and 8 deletions.
diff --git a/R/DBI-package.R b/R/DBI-package.R
@@ -8,7 +8,7 @@
 #' @inheritSection DBItest::spec_compliance_methods DBI classes and methods
 #' @inheritSection DBItest::spec_driver_constructor Construction of the DBIDriver object
 #'
-#' @examples
+#' @examplesIf requireNamespace("RSQLite", quietly = TRUE)
 #' RSQLite::SQLite()
 #' @seealso
 #'   Important generics: [dbConnect()], [dbGetQuery()],

diff --git a/R/dbGetQueryArrow.R b/R/dbGetQueryArrow.R
@@ -1,5 +1,5 @@
 #' @export
-#' @examplesIf packageVersion("nanoarrow") >= "0.1.0.2"
+#' @examplesIf requireNamespace("nanoarrow", quietly = TRUE) && packageVersion("nanoarrow") >= "0.1.0.2"
 #' # Retrieve data as arrow table
 #' con <- dbConnect(RSQLite::SQLite(), ":memory:")
 #'

diff --git a/R/dbReadTableArrow.R b/R/dbReadTableArrow.R
@@ -1,6 +1,6 @@
 #' @rdname dbReadTable
 #' @export
-#' @examplesIf packageVersion("nanoarrow") >= "0.1.0.2"
+#' @examplesIf requireNamespace("nanoarrow", quietly = TRUE) && packageVersion("nanoarrow") >= "0.1.0.2"
 #' # Read data as Arrow table
 #' con <- dbConnect(RSQLite::SQLite(), ":memory:")
 #'

diff --git a/R/dbSendQueryArrow.R b/R/dbSendQueryArrow.R
@@ -1,5 +1,5 @@
 #' @rdname dbSendQuery
-#' @examplesIf packageVersion("nanoarrow") >= "0.1.0.2"
+#' @examplesIf requireNamespace("nanoarrow", quietly = TRUE) && packageVersion("nanoarrow") >= "0.1.0.2"
 #' # Retrieve data as arrow table
 #' con <- dbConnect(RSQLite::SQLite(), ":memory:")
 #'

diff --git a/man/DBI-package.Rd b/man/DBI-package.Rd
diff --git a/man/dbGetQuery.Rd b/man/dbGetQuery.Rd
diff --git a/man/dbReadTable.Rd b/man/dbReadTable.Rd
diff --git a/man/dbSendQuery.Rd b/man/dbSendQuery.Rd
diff --git a/vignettes/spec.Rmd b/vignettes/spec.Rmd
@@ -23,10 +23,17 @@ vignette: >
   %\VignetteEncoding{UTF-8}
 ---
 
+```{r echo = FALSE}
+knitr::opts_chunk$set(
+  echo = FALSE,
+  eval = requireNamespace("magrittr", quietly = TRUE) && requireNamespace("xml2", quietly = TRUE)
+)
+```
+
+
 ```{r echo = FALSE}
 library(magrittr)
 library(xml2)
-knitr::opts_chunk$set(echo = FALSE)
 r <- rprojroot::is_r_package$make_fix_file()
 ```