Only use data_frame in tests (#3003)

Author: thomasp85

R/stat-contour.r

@@ -97,7 +97,7 @@ contour_lines <- function(data, breaks, complete = FALSE) {
     x = xs,
     y = ys,
     piece = pieces,
-    group = groups
+    group = factor(groups)
   ), n = length(xs))
 }
 

tests/testthat/test-layer.r

@@ -39,7 +39,7 @@ test_that("missing aesthetics trigger informative error", {
 })
 
 test_that("if an aes is mapped to a function that returns NULL, it is removed", {
-  df <- data.frame(x = 1:10)
+  df <- data_frame(x = 1:10)
   null <- function(...) NULL
   p <- cdata(ggplot(df, aes(x, null())))
   expect_identical(names(p[[1]]), c("x", "PANEL", "group"))