Force eval_facets() to return a data.frame, not a tibble (#3499)

yutannihilation · web-flow · commit b36c4f4c73cf · 2019-08-26T20:17:14.000+09:00
diff --git a/R/facet-.r b/R/facet-.r
@@ -419,7 +419,7 @@ is_facets <- function(x) {
 # but that seems like a reasonable tradeoff.
 eval_facets <- function(facets, data, env = globalenv()) {
   vars <- compact(lapply(facets, eval_facet, data, env = env))
-  tibble::as_tibble(vars)
+  new_data_frame(tibble::as_tibble(vars))
 }
 eval_facet <- function(facet, data, env = emptyenv()) {
   if (quo_is_symbol(facet)) {

Original file line number	Diff line number	Diff line change
`@@ -419,7 +419,7 @@ is_facets <- function(x) {`
`419`	`419`	`# but that seems like a reasonable tradeoff.`
`420`	`420`	`eval_facets <- function(facets, data, env = globalenv()) {`
`421`	`421`	`vars <- compact(lapply(facets, eval_facet, data, env = env))`
`422`		`- tibble::as_tibble(vars)`
	`422`	`+ new_data_frame(tibble::as_tibble(vars))`
`423`	`423`	`}`
`424`	`424`	`eval_facet <- function(facet, data, env = emptyenv()) {`
`425`	`425`	`if (quo_is_symbol(facet)) {`