diff --git a/R/11-dbAppendTable.R b/R/11-dbAppendTable.R index 7daf358f0..b23faf37f 100644 --- a/R/11-dbAppendTable.R +++ b/R/11-dbAppendTable.R @@ -28,7 +28,7 @@ #' #' @family DBIConnection generics #' @export -#' @examples +#' @examplesIf requireNamespace("RSQLite", quietly = TRUE) #' con <- dbConnect(RSQLite::SQLite(), ":memory:") #' dbCreateTable(con, "iris", iris) #' dbAppendTable(con, "iris", iris) diff --git a/R/DBI-package.R b/R/DBI-package.R index 18e9477e5..72b60687c 100644 --- 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/dbCanConnect.R b/R/dbCanConnect.R index 0de0f0f8f..8a4f9e85e 100644 --- a/R/dbCanConnect.R +++ b/R/dbCanConnect.R @@ -14,7 +14,7 @@ #' @inheritParams dbConnect #' @family DBIDriver generics #' @export -#' @examples +#' @examplesIf requireNamespace("RSQLite", quietly = TRUE) #' # SQLite only needs a path to the database. (Here, ":memory:" is a special #' # path that creates an in-memory database.) Other database drivers #' # will require more details (like user, password, host, port, etc.) diff --git a/R/dbDisconnect.R b/R/dbDisconnect.R index bf104efb0..0e637dd1a 100644 --- a/R/dbDisconnect.R +++ b/R/dbDisconnect.R @@ -12,7 +12,7 @@ #' @inheritParams dbGetQuery #' @family DBIConnection generics #' @export -#' @examples +#' @examplesIf requireNamespace("RSQLite", quietly = TRUE) #' con <- dbConnect(RSQLite::SQLite(), ":memory:") #' dbDisconnect(con) setGeneric("dbDisconnect", diff --git a/R/dbGetQueryArrow.R b/R/dbGetQueryArrow.R index 21a43b07d..2ff749188 100644 --- 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 index 764ac0c94..9ae9a1276 100644 --- 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 index bcc2bc7c5..475c0d905 100644 --- 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 index a5e7220a7..c7c3049c6 100644 --- a/man/DBI-package.Rd +++ b/man/DBI-package.Rd @@ -58,7 +58,9 @@ DBI recommends to define a constructor with an empty argument list. } \examples{ +\dontshow{if (requireNamespace("RSQLite", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} RSQLite::SQLite() +\dontshow{\}) # examplesIf} } \seealso{ Important generics: \code{\link[=dbConnect]{dbConnect()}}, \code{\link[=dbGetQuery]{dbGetQuery()}}, diff --git a/man/dbAppendTable.Rd b/man/dbAppendTable.Rd index 30ed2b5e2..b88d4584e 100644 --- a/man/dbAppendTable.Rd +++ b/man/dbAppendTable.Rd @@ -154,11 +154,13 @@ The order of the columns does not matter. } \examples{ +\dontshow{if (requireNamespace("RSQLite", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} con <- dbConnect(RSQLite::SQLite(), ":memory:") dbCreateTable(con, "iris", iris) dbAppendTable(con, "iris", iris) dbReadTable(con, "iris") dbDisconnect(con) +\dontshow{\}) # examplesIf} } \seealso{ Other DBIConnection generics: diff --git a/man/dbCanConnect.Rd b/man/dbCanConnect.Rd index 01d092248..fbf3ee4a8 100644 --- a/man/dbCanConnect.Rd +++ b/man/dbCanConnect.Rd @@ -28,10 +28,12 @@ a lighter-weight check. \Sexpr[results=rd,stage=render]{DBI:::methods_as_rd("dbCanConnect")} } \examples{ +\dontshow{if (requireNamespace("RSQLite", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # SQLite only needs a path to the database. (Here, ":memory:" is a special # path that creates an in-memory database.) Other database drivers # will require more details (like user, password, host, port, etc.) dbCanConnect(RSQLite::SQLite(), ":memory:") +\dontshow{\}) # examplesIf} } \seealso{ Other DBIDriver generics: diff --git a/man/dbDisconnect.Rd b/man/dbDisconnect.Rd index 4cfaa10ef..8c6927dbc 100644 --- a/man/dbDisconnect.Rd +++ b/man/dbDisconnect.Rd @@ -34,8 +34,10 @@ or invalid connection. } \examples{ +\dontshow{if (requireNamespace("RSQLite", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} con <- dbConnect(RSQLite::SQLite(), ":memory:") dbDisconnect(con) +\dontshow{\}) # examplesIf} } \seealso{ Other DBIConnection generics: diff --git a/man/dbGetQuery.Rd b/man/dbGetQuery.Rd index b905c3901..5f5acd29f 100644 --- a/man/dbGetQuery.Rd +++ b/man/dbGetQuery.Rd @@ -169,7 +169,7 @@ dbGetQuery( ) dbDisconnect(con) -\dontshow{if (packageVersion("nanoarrow") >= "0.1.0.2") (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (requireNamespace("nanoarrow", quietly = TRUE) && packageVersion("nanoarrow") >= "0.1.0.2") (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # Retrieve data as arrow table con <- dbConnect(RSQLite::SQLite(), ":memory:") diff --git a/man/dbReadTable.Rd b/man/dbReadTable.Rd index 561b03212..3166bc252 100644 --- a/man/dbReadTable.Rd +++ b/man/dbReadTable.Rd @@ -123,7 +123,7 @@ dbWriteTable(con, "mtcars", mtcars[1:10, ]) dbReadTable(con, "mtcars") dbDisconnect(con) -\dontshow{if (packageVersion("nanoarrow") >= "0.1.0.2") (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (requireNamespace("nanoarrow", quietly = TRUE) && packageVersion("nanoarrow") >= "0.1.0.2") (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # Read data as Arrow table con <- dbConnect(RSQLite::SQLite(), ":memory:") diff --git a/man/dbSendQuery.Rd b/man/dbSendQuery.Rd index 07059430d..3ea52db74 100644 --- a/man/dbSendQuery.Rd +++ b/man/dbSendQuery.Rd @@ -203,7 +203,7 @@ dbFetch(rs) dbClearResult(rs) dbDisconnect(con) -\dontshow{if (packageVersion("nanoarrow") >= "0.1.0.2") (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (requireNamespace("nanoarrow", quietly = TRUE) && packageVersion("nanoarrow") >= "0.1.0.2") (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # Retrieve data as arrow table con <- dbConnect(RSQLite::SQLite(), ":memory:") diff --git a/vignettes/spec.Rmd b/vignettes/spec.Rmd index 427cbe190..373e08cb8 100644 --- 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() ```