Use more examplesIf, r-lib/roxygen2#993

R/draw-dm.R

@@ -20,7 +20,7 @@
 #' @return For `dm_draw()`: returns an object of class `grViz` (see also [DiagrammeR::grViz()]), which,
 #' when printed, produces the output seen in the viewer as a side effect.
 #'
-#' @examples
+#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
 #' dm_nycflights13() %>%
 #' dm_draw()
 #'
@@ -131,7 +131,9 @@ dm_get_all_columns <- function(x) {
 #' @return For `dm_set_colors()`: the updated data model.
 #'
 #' @rdname dm_draw
-#' @examples
+#'
+#' @export
+#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
 #'
 #' dm_nycflights13(color = FALSE) %>%
 #' dm_set_colors(
@@ -149,7 +151,6 @@ dm_get_all_columns <- function(x) {
 #' dm_nycflights13(color = FALSE) %>%
 #' dm_set_colors(!!!nyc_cols) %>%
 #' dm_draw()
-#' @export
 dm_set_colors <- function(dm, ...) {
  quos <- enquos(...)
  if (any(names(quos) == "")) abort_only_named_args("dm_set_colors", "the colors")

R/foreign-keys.R

@@ -32,7 +32,7 @@
 #' @return For `dm_add_fk()`: An updated `dm` with an additional foreign key relation.
 #'
 #' @export
-#' @examplesIf rlang::is_installed("nycflights13")
+#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
 #' nycflights_dm <- dm(
 #' planes = nycflights13::planes,
 #' flights = nycflights13::flights
@@ -212,8 +212,7 @@ dm_get_all_fks_impl <- function(dm) {
 #' @return For `dm_rm_fk()`: An updated `dm` without the given foreign key relation.
 #'
 #' @export
-#' @examples
-#'
+#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
 #' dm_nycflights13(cycle = TRUE) %>%
 #' dm_rm_fk(flights, dest, airports) %>%
 #' dm_draw()

R/primary-keys.R

@@ -29,7 +29,7 @@
 #' @return For `dm_add_pk()`: An updated `dm` with an additional primary key.
 #'
 #' @export
-#' @examplesIf rlang::is_installed("nycflights13")
+#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
 #' nycflights_dm <- dm(
 #' planes = nycflights13::planes,
 #' airports = nycflights13::airports
@@ -208,8 +208,7 @@ dm_get_all_pks_impl <- function(dm) {
 #'
 #' @return For `dm_rm_pk()`: An updated `dm` without the indicated primary key.
 #'
-#' @examples
-#'
+#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
 #' dm_nycflights13() %>%
 #' dm_rm_pk(airports, rm_referencing_fks = TRUE) %>%
 #' dm_draw()

R/zoom.R

@@ -47,7 +47,7 @@
 #' @return For `dm_zoom_to()`: A `zoomed_dm` object.
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("nycflights13") && rlang::is_installed("DiagrammeR")
 #' flights_zoomed <- dm_zoom_to(dm_nycflights13(), flights)
 #'
 #' flights_zoomed