chore: Fix vignette building if tibble is missing (#681)

* chore: Fix vignette building if tibble is missing * chore: Auto-update from GitHub Actions Run: https://github.com/r-lib/pillar/actions/runs/11968173372 * Skip * Examples
r-lib · Nov 22, 2024 · f5d86ec · f5d86ec
1 parent c3b3076
commit f5d86ec
Show file tree

Hide file tree

Showing 19 changed files with 22 additions and 15 deletions.
diff --git a/R/ctl_new_pillar.R b/R/ctl_new_pillar.R
@@ -36,7 +36,7 @@
 #' packed data frames, matrices, or arrays.
 #'
 #' @export
-#' @examplesIf rlang::is_installed("palmerpenguins") && requireNamespace("tibble")
+#' @examplesIf rlang::is_installed(c("palmerpenguins", "tibble"))
 #' # Create pillar objects
 #' ctl_new_pillar(
 #'   palmerpenguins::penguins,

diff --git a/R/ctl_new_pillar_list.R b/R/ctl_new_pillar_list.R
@@ -42,7 +42,7 @@
 #'   for a compound pillar (or the pillar itself for a simple pillar)
 #'   has been constructed already.
 #' @export
-#' @examplesIf rlang::is_installed("palmerpenguins") && requireNamespace("tibble")
+#' @examplesIf rlang::is_installed(c("palmerpenguins", "tibble")) && requireNamespace("tibble")
 #' # Simple column
 #' ctl_new_pillar_list(
 #'   tibble::tibble(),

diff --git a/R/options.R b/R/options.R
@@ -7,7 +7,7 @@
 #' @usage NULL
 #' @format NULL
 #'
-#' @examples
+#' @examplesIf rlang::is_installed("tibble")
 #' df <- tibble::tibble(x = c(1.234567, NA, 5:10))
 #' df
 #'

diff --git a/R/pillar-package.R b/R/pillar-package.R
@@ -12,7 +12,7 @@
 #' - [print.tbl()] for formatting data-frame-like objects,
 #' - [pillar_options] for a list of package options.
 #'
-#' @examples
+#' @examplesIf rlang::is_installed("tibble")
 #' pillar(1:3)
 #' pillar(c(1, 2, 3))
 #' pillar(factor(letters[1:3]), title = "letters")

diff --git a/R/tbl-format-body.R b/R/tbl-format-body.R
@@ -21,7 +21,7 @@
 #'   A character vector.
 #'
 #' @export
-#' @examplesIf rlang::is_installed("palmerpenguins")
+#' @examplesIf rlang::is_installed(c("palmerpenguins", "tibble"))
 #' setup <- tbl_format_setup(palmerpenguins::penguins)
 #' tbl_format_body(palmerpenguins::penguins, setup)
 #'

diff --git a/R/tbl-format-footer.R b/R/tbl-format-footer.R
@@ -17,7 +17,7 @@
 #' @inherit tbl_format_body return
 #'
 #' @export
-#' @examplesIf rlang::is_installed("palmerpenguins")
+#' @examplesIf rlang::is_installed(c("palmerpenguins", "tibble"))
 #' setup <- tbl_format_setup(palmerpenguins::penguins)
 #' tbl_format_footer(palmerpenguins::penguins, setup)
 #'

diff --git a/R/tbl-format-header.R b/R/tbl-format-header.R
@@ -18,7 +18,7 @@
 #' @inherit tbl_format_body return
 #'
 #' @export
-#' @examplesIf rlang::is_installed("palmerpenguins")
+#' @examplesIf rlang::is_installed(c("palmerpenguins", "tibble"))
 #' setup <- tbl_format_setup(palmerpenguins::penguins)
 #' tbl_format_header(palmerpenguins::penguins, setup)
 #'

diff --git a/R/tbl-format-setup.R b/R/tbl-format-setup.R
@@ -61,7 +61,7 @@
 #'   An object that can be passed as `setup` argument to
 #'   [tbl_format_header()], [tbl_format_body()], and [tbl_format_footer()].
 #' @export
-#' @examplesIf rlang::is_installed("palmerpenguins")
+#' @examplesIf rlang::is_installed(c("palmerpenguins", "tibble"))
 #' tbl_format_setup(palmerpenguins::penguins)
 tbl_format_setup <- function(
   x,

diff --git a/man/ctl_new_pillar.Rd b/man/ctl_new_pillar.Rd
diff --git a/man/ctl_new_pillar_list.Rd b/man/ctl_new_pillar_list.Rd
diff --git a/man/pillar-package.Rd b/man/pillar-package.Rd
diff --git a/man/pillar_options.Rd b/man/pillar_options.Rd
diff --git a/man/tbl_format_body.Rd b/man/tbl_format_body.Rd
diff --git a/man/tbl_format_footer.Rd b/man/tbl_format_footer.Rd
diff --git a/man/tbl_format_header.Rd b/man/tbl_format_header.Rd
diff --git a/man/tbl_format_setup.Rd b/man/tbl_format_setup.Rd
diff --git a/tests/testthat/test-glimpse.R b/tests/testthat/test-glimpse.R
@@ -56,6 +56,7 @@ test_that("glimpse calls tbl_sum() (#550)", {
 })
 
 test_that("output test for glimpse()", {
+  skip_if_not_installed("tibble")
   local_unknown_rows()
 
   expect_snapshot({

diff --git a/tests/testthat/test-num.R b/tests/testthat/test-num.R
@@ -1,4 +1,6 @@
 test_that("output test", {
+  skip_if_not_installed("tibble")
+
   expect_snapshot({
     tibble::tibble(
       x0 = num(9:11 * 100 + 0.5, sigfig = 3),

diff --git a/vignettes/printing.Rmd b/vignettes/printing.Rmd
@@ -10,6 +10,7 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
   collapse = TRUE,
+  eval = rlang::is_installed("tibble"),
   comment = "#>"
 )