use cheaper data.frame in tests

tests/testthat/test-aes-calculated.R

@@ -52,7 +52,7 @@ test_that("make_labels() deparses mappings properly", {
 
 test_that("staged aesthetics warn appropriately for duplicated names", {
   # Test should *not* report `NA` as the duplicated aes (#4707)
-  df <- data.frame(x = 1, y = 1, lab = "test")
+  df <- data_frame0(x = 1, y = 1, lab = "test")
 
   # One warning in plot code due to evaluation of `aes()`
   expect_snapshot_warning(

tests/testthat/test-draw-key.R

@@ -39,7 +39,7 @@ test_that("keys can communicate their size", {
 # Orientation-aware key glyphs --------------------------------------------
 
 test_that("horizontal key glyphs work", {
-  df <- data.frame(
+  df <- data_frame0(
     middle = 1:2,
     lower = 0:1,
     upper = 2:3,

tests/testthat/test-facet-labels.R

@@ -165,7 +165,7 @@ test_that("parsed labels are rendered correctly", {
 
 test_that("outside-justified labels are justified across panels", {
 
-  df <- data.frame(
+  df <- data_frame0(
     x = c("X\nX\nX\nX\nX", "X"),
     y = c("YYYYY", "Y"),
     f1 = c("A", "B"),

tests/testthat/test-geom-sf.R

@@ -198,7 +198,7 @@ test_that("geom_sf data type renders appropriate legends", {
 
   # Point data
   data <- sf::st_as_sf(
-    data.frame(lon = c(1, 2), lat = c(3, 4), col = c("foo", "bar")),
+    data_frame0(lon = c(1, 2), lat = c(3, 4), col = c("foo", "bar")),
     coords = c("lon", "lat")
   )
   expect_doppelganger(

tests/testthat/test-guides.R

@@ -222,7 +222,7 @@ test_that("guide merging for guide_legend() works as expected", {
 })
 
 test_that("size = NA doesn't throw rendering errors", {
-  df <- data.frame(
+  df <- data_frame0(
     x = c(1, 2),
     group = c("a", "b")
   )

tests/testthat/test-position_dodge.R

@@ -12,7 +12,7 @@ test_that("can control whether to preserve total or individual width", {
 
 test_that("position_dodge() can dodge points vertically", {
 
-  df <- data.frame(x = c(1, 2, 3, 4), y = c("a", "a", "b", "b"))
+  df <- data_frame0(x = c(1, 2, 3, 4), y = c("a", "a", "b", "b"))
 
   horizontal <- ggplot(df, aes(y, x, group = seq_along(x))) +
     geom_point(position = position_dodge(width = 1, orientation = "x"))
@@ -26,7 +26,7 @@ test_that("position_dodge() can dodge points vertically", {
 
 test_that("position_dodge() can reverse the dodge order", {
 
-  df <- data.frame(x = c(1, 2, 2, 3, 3), group = c("A", "A", "B", "B", "C"))
+  df <- data_frame0(x = c(1, 2, 2, 3, 3), group = c("A", "A", "B", "B", "C"))
 
   # Use label as easy to track identifier
   p <- ggplot(df, aes(x, y = 1, fill = group, label = group))

tests/testthat/test-scale-discrete.R

@@ -166,7 +166,7 @@ test_that("mapped_discrete vectors behaves as predicted", {
 
 test_that("palettes work for discrete scales", {
 
-  df <- data.frame(x = c("A", "B", "C"), y = 1:3)
+  df <- data_frame0(x = c("A", "B", "C"), y = 1:3)
   values <- c(1, 10, 100)
 
   p <- ggplot(df, aes(x, y)) +
@@ -187,7 +187,7 @@ test_that("palettes work for discrete scales", {
 
 test_that("invalid palettes trigger errors", {
 
-  df <- data.frame(x = c("A", "B", "C"), y = 1:3)
+  df <- data_frame0(x = c("A", "B", "C"), y = 1:3)
 
   p <- ggplot(df, aes(x, y)) +
     geom_point()

tests/testthat/test-sec-axis.R

@@ -380,7 +380,7 @@ test_that("sec_axis() works for power transformations (monotonicity test doesn't
 
 test_that("discrete scales can have secondary axes", {
 
-  data <- data.frame(x = c("A", "B", "C"), y = c("D", "E", "F"))
+  data <- data_frame0(x = c("A", "B", "C"), y = c("D", "E", "F"))
   p <- ggplot(data, aes(x, y)) +
     geom_point() +
     scale_x_discrete(sec.axis = dup_axis(labels = c("foo", "bar", "baz"))) +