update snaps

Author: sierrajohnson

R/stat-boxplot.R

@@ -27,7 +27,7 @@ StatBoxplot <- ggproto("StatBoxplot", Stat,
                                         default = NA)
 
     if (is.na(params$flipped_aes)) {
-      cli::cli_warn("Warning: Orientation is not uniquely specified when both the x and y aesthetics are continuous. Picking default orientation 'x'.")
+      cli::cli_warn("Orientation is not uniquely specified when both the x and y aesthetics are continuous. Picking default orientation 'x'.")
       params$flipped_aes <- FALSE
     }
     data <- flip_data(data, params$flipped_aes)

tests/testthat/_snaps/geom-boxplot.md

@@ -1,14 +1,35 @@
 # geom_boxplot for continuous x gives warning if more than one x (#992)
 
-    Warning: Orientation is not uniquely specified when both the x and y aesthetics are continuous. Picking default orientation 'x'.
+    Code
+      p <- bplot(aes(x, y))
+    Condition
+      Warning:
+      Orientation is not uniquely specified when both the x and y aesthetics are continuous. Picking default orientation 'x'.
+      Warning:
+      Continuous x aesthetic
+      i did you forget `aes(group = ...)`?
 
 ---
 
-    Warning: Orientation is not uniquely specified when both the x and y aesthetics are continuous. Picking default orientation 'x'.
+    Code
+      p <- bplot(aes(x, y), facet_wrap(~x))
+    Condition
+      Warning:
+      Orientation is not uniquely specified when both the x and y aesthetics are continuous. Picking default orientation 'x'.
+      Warning:
+      Continuous x aesthetic
+      i did you forget `aes(group = ...)`?
 
 ---
 
-    Warning: Orientation is not uniquely specified when both the x and y aesthetics are continuous. Picking default orientation 'x'.
+    Code
+      p <- bplot(aes(Sys.Date() + x, y))
+    Condition
+      Warning:
+      Orientation is not uniquely specified when both the x and y aesthetics are continuous. Picking default orientation 'x'.
+      Warning:
+      Continuous x aesthetic
+      i did you forget `aes(group = ...)`?
 
 # boxplots with a group size >1 error
 

tests/testthat/test-geom-boxplot.R

@@ -42,9 +42,9 @@ test_that("geom_boxplot for continuous x gives warning if more than one x (#992)
     ggplot_build(ggplot(dat, aes) + geom_boxplot(aes) + extra)
   }
 
-  expect_snapshot_warning(bplot(aes(x, y)))
-  expect_snapshot_warning(bplot(aes(x, y), facet_wrap(~x)))
-  expect_snapshot_warning(bplot(aes(Sys.Date() + x, y)))
+  expect_snapshot(p <- bplot(aes(x, y)))
+  expect_snapshot(p <- bplot(aes(x, y), facet_wrap(~x)))
+  expect_snapshot(p <- bplot(aes(Sys.Date() + x, y)))
 
   expect_silent(bplot(aes(x, group = x, y)))
   expect_silent(bplot(aes(1, y)))