From ae14ec5ce6bc7c11133fd1107a7aac9fce3e9bd4 Mon Sep 17 00:00:00 2001 From: Hiroaki Yutani Date: Fri, 23 Aug 2019 12:59:48 +0900 Subject: [PATCH] Force eval_facets() to return a data.frame, not a tibble --- R/facet-.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/facet-.r b/R/facet-.r index c8bfd4eb21..2096b5f2cd 100644 --- 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)) {