avoid %+% in test code

Author: teunbrand

tests/testthat/test-geom-sf.R

@@ -197,7 +197,7 @@ test_that("geom_sf data type renders appropriate legends", {
   )
   expect_doppelganger(
     "geom_sf point legend",
-    p %+% data
+    ggplot_add(data, p)
   )
 
   # Line data
@@ -210,7 +210,7 @@ test_that("geom_sf data type renders appropriate legends", {
   )
   expect_doppelganger(
     "geom_sf line legend",
-    p %+% data
+    ggplot_add(data, p)
   )
 
   # Polygon data
@@ -223,7 +223,7 @@ test_that("geom_sf data type renders appropriate legends", {
   )
   expect_doppelganger(
     "geom_sf polygon legend",
-    p %+% data
+    ggplot_add(data, p)
   )
 })
 

tests/testthat/test-scales.R

@@ -82,7 +82,7 @@ test_that("position scales are updated by all position aesthetics", {
   )
 
   base <- ggplot(df, aes(x = 1, y = 1)) + geom_point()
-  plots <- lapply(aesthetics, function(x) base %+% x)
+  plots <- lapply(aesthetics, ggplot_add, plot = base)
   ranges <- lapply(plots, pranges)
 
   lapply(ranges, function(range) {