docs: Fix rendering if suggested packages are missing

tidyverse · Nov 5, 2023 · 8294c2b · 8294c2b
1 parent 15db776
commit 8294c2b
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 4 deletions.
diff --git a/vignettes/formats.Rmd b/vignettes/formats.Rmd
@@ -12,9 +12,12 @@ vignette: >
 knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
+ eval = rlang::is_installed(c("dplyr", "formattable", "ggplot2", "tidyr")),
  error = (Sys.getenv("IN_PKGDOWN") == "")
 )
+```
 
+```{r, include = FALSE}
 library(tibble)
 library(formattable)
 library(dplyr)

diff --git a/vignettes/numbers.Rmd b/vignettes/numbers.Rmd
@@ -70,7 +70,7 @@ The formatting survives most data transformations.
 Currently, formatting must be applied manually for each column.
 The following pattern may help doing this consistently for all columns in a tibble, or for some columns based on their name.
 
-```{r}
+```{r, eval = rlang::is_installed("dplyr")}
 library(dplyr, warn.conflicts = FALSE)
 
 markets <-

diff --git a/vignettes/types.Rmd b/vignettes/types.Rmd
@@ -10,8 +10,12 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
  collapse = TRUE,
+ eval = rlang::is_installed(c("dplyr", "tidyr", "purrr")),
  comment = "#>"
 )
+```
+
+```{r, include = FALSE}
 library(dplyr)
 library(tidyr)
 library(purrr)
@@ -48,7 +52,7 @@ set_names(rep_along(all_methods, list("")), all_methods) %>%
 
 
 ```{r data, echo = FALSE}
-data <- list(
+data <- compact(list(
  "Atomic" = rlang::quos(
  logical = TRUE,
  integer = 1L,
@@ -68,7 +72,7 @@ data <- list(
  difftime = vctrs::new_duration(1)
  ),
 
- "Objects from other packages" = rlang::quos(
+ "Objects from other packages" = if (rlang::is_installed(c("bit64", "blob", "hms"))) rlang::quos(
  hms = hms::hms(1),
  integer64 = bit64::as.integer64(1e10),
  blob = blob::blob(raw(1))
@@ -99,7 +103,7 @@ data <- list(
  expression = parse(text = "a <- 1\nb<- 2"),
  quosures = rlang::quos(a = 1)
  )
-)
+))
 ```
 
 ```{r table, echo = FALSE}