Eliminate warnings in tests

Author: hadley

R/stat-sum.r

@@ -33,7 +33,7 @@ stat_sum <- function(mapping = NULL, data = NULL,
 #' @usage NULL
 #' @export
 StatSum <- ggproto("StatSum", Stat,
-  default_aes = aes(size = ..n..),
+  default_aes = aes(size = ..n.., weight = 1),
 
   required_aes = c("x", "y"),
 

tests/testthat/test-build.r

@@ -30,12 +30,17 @@ test_that("position aesthetics coerced to correct type", {
 })
 
 test_that("non-position aesthetics are mapped", {
-  l1 <- ggplot(df, aes(x, y, fill = z, colour = z, shape = z, size = z)) +
+  l1 <- ggplot(df, aes(x, y, fill = z, colour = z, shape = z)) +
     geom_point()
-  d1 <- layer_data(l1, 1)
 
-  expect_equal(sort(names(d1)), sort(c("x", "y", "fill", "group",
-    "colour", "shape", "size", "PANEL", "alpha", "stroke")))
+  expect_named(
+    layer_data(l1, 1),
+    c(
+      "x", "y", "fill", "group", "colour", "shape", "size", "PANEL",
+      "alpha", "stroke"
+    ),
+    ignore.order = TRUE
+  )
 
   l2 <- l1 + scale_colour_manual(values = c("blue", "red", "yellow"))
   d2 <- layer_data(l2, 1)