Move {tibble} to suggests (#5990)

* don't use `tibble()` in code

* remove `tibble()` from examples/tests

* redocument

* add news bullet

Author: teunbrand

DESCRIPTION

@@ -42,7 +42,6 @@ Imports:
     rlang (>= 1.1.0),
     scales (>= 1.3.0),
     stats,
-    tibble,
     vctrs (>= 0.6.0),
     withr (>= 2.5.0)
 Suggests:
@@ -67,6 +66,7 @@ Suggests:
     sf (>= 0.7-3),
     svglite (>= 2.1.2),
     testthat (>= 3.1.5),
+    tibble,
     vdiffr (>= 1.0.6),
     xml2
 Enhances: 

NAMESPACE

@@ -735,7 +735,6 @@ importFrom(grid,unit)
 importFrom(lifecycle,deprecated)
 importFrom(scales,alpha)
 importFrom(stats,setNames)
-importFrom(tibble,tibble)
 importFrom(utils,.DollarNames)
 importFrom(utils,head)
 importFrom(utils,tail)

NEWS.md

@@ -159,6 +159,7 @@
   (@teunbrand, #4584).
 * `theme_classic()` now has black ticks and text instead of dark gray. In 
   addition, `theme_classic()`'s axis line end is `"square"` (@teunbrand, #5978).
+* {tibble} is now suggested instead of imported (@teunbrand, #5986)
 
 # ggplot2 3.5.1
 

R/facet-.R

@@ -564,7 +564,7 @@ is_facets <- function(x) {
 # but that seems like a reasonable tradeoff.
 eval_facets <- function(facets, data, possible_columns = NULL) {
   vars <- compact(lapply(facets, eval_facet, data, possible_columns = possible_columns))
-  data_frame0(tibble::as_tibble(vars))
+  data_frame0(!!!vars)
 }
 eval_facet <- function(facet, data, possible_columns = NULL) {
   # Treat the case when `facet` is a quosure of a symbol specifically

R/position-stack.R

@@ -116,14 +116,12 @@
 #'
 #' # Negative values -----------------------------------------------------------
 #'
-#' df <- tibble::tribble(
-#'   ~x, ~y, ~grp,
-#'   "a", 1,  "x",
-#'   "a", 2,  "y",
-#'   "b", 1,  "x",
-#'   "b", 3,  "y",
-#'   "b", -1, "y"
+#' df <- data.frame(
+#'   x = rep(c("a", "b"), 2:3),
+#'   y = c(1, 2, 1, 3, -1),
+#'   grp = c("x", "y", "x", "y", "y")
 #' )
+#'
 #' ggplot(data = df, aes(x, y, group = grp)) +
 #'   geom_col(aes(fill = grp), position = position_stack(reverse = TRUE)) +
 #'   geom_hline(yintercept = 0)

R/summarise-plot.R

@@ -66,7 +66,7 @@ summarise_layout <- function(p) {
   l <- p$layout
 
   layout <- l$layout
-  layout <- tibble(
+  layout <- data_frame0(
     panel = l$layout$PANEL,
     row   = l$layout$ROW,
     col   = l$layout$COL
@@ -134,7 +134,7 @@ summarise_layers <- function(p) {
 
   # This currently only returns the mappings, but in the future, other
   # information could be added.
-  tibble(
+  data_frame0(
     mapping = layer_mappings
   )
 }

R/utilities.R

@@ -371,10 +371,6 @@ seq_asc <- function(to, from) {
   }
 }
 
-# Needed to trigger package loading
-#' @importFrom tibble tibble
-NULL
-
 # Wrapping vctrs data_frame constructor with no name repair
 data_frame0 <- function(...) data_frame(..., .name_repair = "minimal")
 

man/position_stack.Rd

@@ -8,7 +8,7 @@ test_that("geom_quantile matches quantile regression", {
 
   set.seed(6531)
   x <- rnorm(10)
-  df <- tibble::tibble(
+  df <- data_frame0(
     x = x,
     y = x^2 + 0.5 * rnorm(10)
   )

tests/testthat/test-geom-quantile.R

@@ -17,11 +17,10 @@ test_that("accepts width and height aesthetics", {
     geom_tile(fill = NA, colour = "black", linewidth = 1)
   out <- get_layer_data(p)
 
-  boundary <- as.data.frame(tibble::tribble(
-    ~xmin, ~xmax, ~ymin, ~ymax,
-       -1,    1,     -1,    1,
-       -2,    2,     -2,    2
-  ))
+  boundary <- data_frame0(
+    xmin = c(-1, -2), xmax = c(1, 2),
+    ymin = c(-1, -2), ymax = c(1, 2)
+  )
   expect_equal(out[c("xmin", "xmax", "ymin", "ymax")], boundary)
 })
 

tests/testthat/test-geom-tile.R

@@ -1,10 +1,9 @@
 # Missing values ----------------------------------------------------------
 
-df <- tibble::tibble(
+df <- data_frame0(
   x1 = c("a", "b", NA),
-  x2 = factor(x1),
-  x3 = addNA(x2),
-
+  x2 = factor(c("a", "b", NA)),
+  x3 = factor(c("a", "b", NA), levels = c("a", "b", NA), exclude = NULL),
   y = 1:3
 )
 

tests/testthat/test-scale-discrete.R

@@ -171,7 +171,7 @@ test_that("sec axis works with tidy eval", {
     g
   }
 
-  t <- tibble(x = letters, y = seq(10, 260, 10), z = 1:26)
+  t <- data_frame0(x = letters, y = seq(10, 260, 10), z = 1:26)
 
   p <- f(t, x, y, z)
 

tests/testthat/test-sec-axis.R

@@ -1,44 +1,29 @@
 test_that("standard alignment works", {
-  df <- tibble::tribble(
-    ~g, ~x, ~y,
-    "a", 1, 2,
-    "a", 3, 5,
-    "a", 5, 1,
-    "b", 2, 3,
-    "b", 4, 6,
-    "b", 6, 7
+  df <- data_frame0(
+    g = rep(c("a", "b"), each = 3L),
+    x = c(1, 3, 5, 2, 4, 6),
+    y = c(2, 5, 1, 3, 6, 7)
   )
   p <- ggplot(df, aes(x, y, fill = g)) + geom_area(color = "black")
   expect_doppelganger("align two areas", p)
 })
 
 test_that("alignment with cliffs works", {
-  df <- tibble::tribble(
-    ~g, ~x, ~y,
-    "a", 1, 2,
-    "a", 3, 5,
-    "a", 5, 1,
-    "b", 2, 3,
-    "b", 4, 3,
-    "b", 4, 6,
-    "b", 6, 7
+  df <- data_frame0(
+    g = rep(c("a", "b"), 3:4),
+    x = c(1, 3, 5, 2, 4, 4, 6),
+    y = c(2, 5, 1, 3, 3, 6, 7)
   )
-
   p <- ggplot(df, aes(x, y, fill = g)) + geom_area(color = "black")
   expect_doppelganger("align two areas with cliff", p)
 })
 
 test_that("alignment with negative and positive values works", {
-  df <- tibble::tribble(
-    ~g, ~x, ~y,
-    "a", 1, 1,
-    "a", 2, 4,
-    "a", 3, -4,
-    "a", 8, 0,
-    "b", 2, 4,
-    "b", 6, -4
+  df <- data_frame0(
+    g = rep(c("a", "b"), c(4L, 2L)),
+    x = c(1, 2, 3, 8, 2, 6),
+    y = c(1, 4, -4, 0, 4, -4)
   )
-
   p <- ggplot(df, aes(x, y, fill = g)) + geom_area(color = "black")
   expect_doppelganger("align two areas with pos/neg y", p)
 })