skip gnarly snapshots

Author: teunbrand

tests/testthat/_snaps/aes.md

@@ -1,4 +1,4 @@
-# aes evaluated in environment where plot created
+# accessing an undefined variable results in an error
 
     Code
       get_layer_data(p)

tests/testthat/_snaps/empty-data.md

@@ -14,7 +14,7 @@
       Error in `combine_vars()`:
       ! Faceting variables must have at least one value.
 
-# empty data overrides plot defaults
+# Should error when totally empty data frame because there's no x and y
 
     Code
       get_layer_data(d)

tests/testthat/test-aes.R

@@ -48,8 +48,10 @@ test_that("aes evaluated in environment where plot created", {
   df <- data_frame(x = 1, y = 1)
   p <- ggplot(df, aes(foo, y)) + geom_point()
 
-  # Accessing an undefined variable should result in error
-  expect_snapshot(get_layer_data(p), error = TRUE)
+  test_that("accessing an undefined variable results in an error", {
+    skip_if(getRversion() <= "4.4.0")
+    expect_snapshot(get_layer_data(p), error = TRUE)
+  })
 
   # Once it's defined we should get it back
   foo <- 0

tests/testthat/test-empty-data.R

@@ -53,11 +53,13 @@ test_that("layers with empty data are silently omitted with facet_grid", {
 })
 
 test_that("empty data overrides plot defaults", {
-  # Should error when totally empty data frame because there's no x and y
-  d <- ggplot(mtcars, aes(mpg, wt)) +
-    geom_point() +
-    geom_point(data = data_frame())
-  expect_snapshot(get_layer_data(d), error = TRUE)
+  test_that("Should error when totally empty data frame because there's no x and y", {
+    skip_if(getRversion() <= "4.4.0")
+    d <- ggplot(mtcars, aes(mpg, wt)) +
+      geom_point() +
+      geom_point(data = data_frame())
+    expect_snapshot(get_layer_data(d), error = TRUE)
+  })
 
   # No extra points when x and y vars don't exist but are set
   d <- ggplot(mtcars, aes(mpg, wt)) +

tests/testthat/test-fortify.R

@@ -100,6 +100,8 @@ test_that("fortify.default can handle healthy data-frame-like objects", {
 
   # Rejected by fortify.default() because of unhealthy dim() behavior
 
+  skip_if(getRversion() <= "4.4.0")
+
   dim.foo <- function(x) stop("oops!")
   registerS3method("dim", "foo", dim.foo)
   expect_snapshot(fortify(object), error = TRUE)