better many legends test

Author: cpsievert

DESCRIPTION

@@ -49,4 +49,4 @@ Suggests:
     RSclient,
     broom
 LazyData: true
-RoxygenNote: 5.0.0
+RoxygenNote: 5.0.1

tests/testthat/test-ggplot-legend.R

@@ -103,15 +103,9 @@ test_that("very long legend items", {
 
 # test of legend position
 test_that("many legend items", {
-  many_items <- data.frame(cat1 = sample(x = paste0("Group ", LETTERS[1:12]), 
-                                         size = 100, replace = TRUE),
-                           cat2 = sample(x = c("foo", "bar", "baz"),
-                                         size = 100, replace = TRUE))
-  p_many_items <- ggplot(many_items, aes(cat2, fill=cat1)) + 
-    geom_bar(position="dodge")
-  info <- expect_traces(p_many_items, 12, "many legend items")
+  p <- ggplot(midwest, aes(category, fill= category)) + geom_bar()
+  info <- expect_traces(p, nlevels(midwest$category), "many legend items")
   expect_equal(length(info$layout$annotations), 1)
-  expected.names <- levels(many_items$cat2)
   expect_identical(info$layout$annotations[[1]]$y > 0.5, TRUE)
   expect_identical(info$layout$annotations[[1]]$y - 
                      info$layout$legend$y > 0, TRUE)