Don't use group2NA

cpsievert · cpsievert · commit 4a336c65d8cd · 2015-04-16T11:33:39.000-05:00
diff --git a/R/trace_generation.R b/R/trace_generation.R
@@ -350,7 +350,7 @@ toBasic <- list(
     g
   },
   density=function(g) {
-    g <- group2NA(g, "area")
+    g$geom <- "area"
     if (is.null(g$data$fill) && is.null(g$params$alpha)) g$params$alpha <- 0
     if (is.null(g$data$colour)) g$params$colour <- "black"
     g

Original file line number	Diff line number	Diff line change
`@@ -350,7 +350,7 @@ toBasic <- list(`
`350`	`350`	`g`
`351`	`351`	`},`
`352`	`352`	`density=function(g) {`
`353`		`- g <- group2NA(g, "area")`
	`353`	`+ g$geom <- "area"`
`354`	`354`	`if (is.null(g$data$fill) && is.null(g$params$alpha)) g$params$alpha <- 0`
`355`	`355`	`if (is.null(g$data$colour)) g$params$colour <- "black"`
`356`	`356`	`g`