facet_locate: remove unneeded evaluation (Fixes tidyverse#565)

jiho · Jun 3, 2012 · c97be66 · c97be66
1 parent 7cbd6c2
commit c97be66
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/facet-locate.r b/R/facet-locate.r
@@ -18,7 +18,6 @@ locate_grid <- function(data, panels, rows = NULL, cols = NULL, margins = FALSE)
   data <- add_margins(data, margin_vars, margins)
 
   facet_vals <- quoted_df(data, c(rows, cols))
-  values <- compact(llply(data, quoted_df, vars = c(rows, cols)))
 
   # If any facetting variables are missing, add them in by 
   # duplicating the data