catch tests where this occurs

Author: teunbrand

tests/testthat/test-aes-calculated.R

@@ -47,7 +47,11 @@ test_that("make_labels() deparses mappings properly", {
   expect_match(x_lab, "...$")
   # if the mapping is a literal or NULL, the aesthetics is used
   expect_identical(make_labels(aes(x = 1)), list(x = "x"))
-  expect_identical(make_labels(aes(x = NULL)), list(x = "x"))
+  # NULL labels should only be used as fallback labels
+  expect_identical(
+    make_labels(aes(x = NULL)),
+    list(x = structure("x", fallback = TRUE))
+  )
 })
 
 test_that("staged aesthetics warn appropriately for duplicated names", {

tests/testthat/test-aes.R

@@ -103,7 +103,8 @@ test_that("quosures are squashed when creating default label for a mapping", {
 test_that("labelling doesn't cause error if aesthetic is NULL", {
   p <- ggplot(mtcars) + aes(x = NULL)
   labels <- ggplot_build(p)@plot@labels
-  expect_identical(labels$x, "x")
+  # NULL labels should only be used as fallback labels
+  expect_identical(labels$x, structure("x", fallback = TRUE))
 })
 
 test_that("aes standardises aesthetic names", {