chore: Fix vignette building if tibble is missing

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,

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(),

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
 #'

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")

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)
 #'

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)
 #'

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)
 #'

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, width = NULL, ...,
                              n = NULL, max_extra_cols = NULL,

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({

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),

vignettes/printing.Rmd

@@ -10,6 +10,7 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
   collapse = TRUE,
+  eval = rlang::is_installed("tibble"),
   comment = "#>"
 )