remove tibble() from examples/tests

Author: teunbrand

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)

tests/testthat/test-geom-quantile.R

@@ -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-tile.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-scale-discrete.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-sec-axis.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-stat-align.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)
 })