Strip input names. Fixes #1545

hadley · hadley · commit fb3931c4e925 · 2016-02-17T16:43:49.000+11:00
diff --git a/R/layer.r b/R/layer.r
@@ -203,6 +203,7 @@ Layer <- ggproto("Layer", NULL,
     } else {
       evaled$PANEL <- data$PANEL
     }
+    evaled <- lapply(evaled, unname)
     evaled <- data.frame(evaled, stringsAsFactors = FALSE)
     evaled <- add_group(evaled)
     evaled

Original file line number	Diff line number	Diff line change
`@@ -203,6 +203,7 @@ Layer <- ggproto("Layer", NULL,`
`203`	`203`	`} else {`
`204`	`204`	`evaled$PANEL <- data$PANEL`
`205`	`205`	`}`
	`206`	`+ evaled <- lapply(evaled, unname)`
`206`	`207`	`evaled <- data.frame(evaled, stringsAsFactors = FALSE)`
`207`	`208`	`evaled <- add_group(evaled)`
`208`	`209`	`evaled`