Use the vectorization power of rlang::is_installed.

cynkra · Oct 16, 2023 · b6f5382 · b6f5382
1 parent afcf701
commit b6f5382
Show file tree

Hide file tree

Showing 26 changed files with 29 additions and 29 deletions.
diff --git a/R/db-interface.R b/R/db-interface.R
@@ -61,7 +61,7 @@
 #' @return A `dm` object on the given `src` with the same table names
 #'   as the input `dm`.
 #'
-#' @examplesIf rlang::is_installed("RSQLite") && rlang::is_installed("nycflights13") && rlang::is_installed("dbplyr")
+#' @examplesIf rlang::is_installed(c("RSQLite", "nycflights13", "dbplyr"))
 #' con <- DBI::dbConnect(RSQLite::SQLite())
 #'
 #' # Copy to temporary tables, unique table names by default:

diff --git a/R/descriptions.R b/R/descriptions.R
@@ -19,7 +19,7 @@
 #' @return For `dm_set_table_description()`: A `dm` object containing descriptions for specified tables.
 #' @export
 #'
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("labelled") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "labelled", "DiagrammeR"))
 #' desc_flights <- rlang::set_names(
 #'   "flights",
 #'   paste(

diff --git a/R/dm.R b/R/dm.R
@@ -38,7 +38,7 @@
 #' new_dm(list(trees = trees, mtcars = mtcars))
 #'
 #' as_dm(list(trees = trees, mtcars = mtcars))
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("dbplyr")
+#' @examplesIf rlang::is_installed(c("nycflights13", "dbplyr"))
 #'
 #' is_dm(dm_nycflights13())
 #'

diff --git a/R/dm_sql.R b/R/dm_sql.R
@@ -30,7 +30,7 @@
 #' @return Nested list of SQL statements.
 #'
 #' @export
-#' @examplesIf rlang::is_installed("RSQLite") && rlang::is_installed("dbplyr")
+#' @examplesIf rlang::is_installed(c("RSQLite", "dbplyr"))
 #' con <- DBI::dbConnect(RSQLite::SQLite())
 #' dm <- dm_nycflights13()
 #' s <- dm_sql(dm, con)

diff --git a/R/draw-dm.R b/R/draw-dm.R
@@ -47,7 +47,7 @@
 #' Currently, this is an object of class `grViz` (see also
 #' [DiagrammeR::grViz()]), but this is subject to change.
 #'
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "DiagrammeR"))
 #' dm_nycflights13() %>%
 #'   dm_draw()
 #'
@@ -237,7 +237,7 @@ dm_get_all_column_types <- function(x) {
 #' @return For `dm_set_colors()`: the updated data model.
 #'
 #' @export
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "DiagrammeR"))
 #' dm_nycflights13(color = FALSE) %>%
 #'   dm_set_colors(
 #'     darkblue = starts_with("air"),

diff --git a/R/filter-dm.R b/R/filter-dm.R
@@ -273,7 +273,7 @@ dm_get_filtered_table <- function(dm, from) {
 #'     \item{`zoomed`}{logical, does the filter condition relate to the zoomed table.}
 #'   }
 #'
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("dbplyr")
+#' @examplesIf rlang::is_installed(c("nycflights13", "dbplyr"))
 #' dm_nycflights13() %>%
 #'   dm_get_filters()
 #' @noRd

diff --git a/R/foreign-keys.R b/R/foreign-keys.R
@@ -45,7 +45,7 @@
 #' @return An updated `dm` with an additional foreign key relation.
 #'
 #' @export
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "DiagrammeR"))
 #' nycflights_dm <- dm(
 #'   planes = nycflights13::planes,
 #'   flights = nycflights13::flights,
@@ -304,7 +304,7 @@ dm_get_all_fks_def_impl <- function(def, parent_table = NULL, ignore_on_delete =
 #' @return An updated `dm` without the matching foreign key relation(s).
 #'
 #' @export
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "DiagrammeR"))
 #' dm_nycflights13(cycle = TRUE) %>%
 #'   dm_rm_fk(flights, dest, airports) %>%
 #'   dm_draw()

diff --git a/R/pixarfilms.R b/R/pixarfilms.R
@@ -17,7 +17,7 @@
 #'
 #' @export
 #' @autoglobal
-#' @examplesIf rlang::is_installed("pixarfilms") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("pixarfilms", "DiagrammeR"))
 #' dm_pixarfilms()
 #' dm_pixarfilms() %>%
 #'   dm_draw()

diff --git a/R/primary-keys.R b/R/primary-keys.R
@@ -29,7 +29,7 @@
 #'
 #' @return An updated `dm` with an additional primary key.
 #'
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "DiagrammeR"))
 #' nycflights_dm <- dm(
 #'   planes = nycflights13::planes,
 #'   airports = nycflights13::airports,
@@ -239,7 +239,7 @@ dm_get_all_pks_def_impl <- function(def, table = NULL) {
 #' @return An updated `dm` without the indicated primary key(s).
 #'
 #' @export
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "DiagrammeR"))
 #' dm_nycflights13() %>%
 #'   dm_rm_pk(airports) %>%
 #'   dm_draw()

diff --git a/R/rows-dm.R b/R/rows-dm.R
@@ -29,7 +29,7 @@
 #'   and `x` is returned, invisibly.
 #'
 #' @name rows-dm
-#' @examplesIf rlang::is_installed("RSQLite") && rlang::is_installed("nycflights13") && rlang::is_installed("dbplyr")
+#' @examplesIf rlang::is_installed(c("RSQLite", "nycflights13", "dbplyr"))
 #' # Establish database connection:
 #' sqlite <- DBI::dbConnect(RSQLite::SQLite())
 #'

diff --git a/R/unique-keys.R b/R/unique-keys.R
@@ -22,7 +22,7 @@
 #'
 #' @return An updated `dm` with an additional unqiue key.
 #'
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "DiagrammeR"))
 #'
 #' nycflights_dm <- dm(
 #'   planes = nycflights13::planes,

diff --git a/R/zoom.R b/R/zoom.R
@@ -46,7 +46,7 @@
 #' @return For `dm_zoom_to()`: A `dm_zoomed` object.
 #'
 #' @export
-#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
+#' @examplesIf rlang::is_installed(c("nycflights13", "DiagrammeR"))
 #' flights_zoomed <- dm_zoom_to(dm_nycflights13(), flights)
 #'
 #' flights_zoomed

diff --git a/man/copy_dm_to.Rd b/man/copy_dm_to.Rd
diff --git a/man/dm.Rd b/man/dm.Rd
diff --git a/man/dm_add_fk.Rd b/man/dm_add_fk.Rd
diff --git a/man/dm_add_pk.Rd b/man/dm_add_pk.Rd
diff --git a/man/dm_add_uk.Rd b/man/dm_add_uk.Rd
diff --git a/man/dm_draw.Rd b/man/dm_draw.Rd
diff --git a/man/dm_pixarfilms.Rd b/man/dm_pixarfilms.Rd
diff --git a/man/dm_rm_fk.Rd b/man/dm_rm_fk.Rd
diff --git a/man/dm_rm_pk.Rd b/man/dm_rm_pk.Rd
diff --git a/man/dm_set_colors.Rd b/man/dm_set_colors.Rd
diff --git a/man/dm_set_table_description.Rd b/man/dm_set_table_description.Rd
diff --git a/man/dm_sql.Rd b/man/dm_sql.Rd
diff --git a/man/dm_zoom_to.Rd b/man/dm_zoom_to.Rd
diff --git a/man/rows-dm.Rd b/man/rows-dm.Rd