make sure guides use computed params

Author: thomasp85

R/guide-bins.R

@@ -228,7 +228,7 @@ guide_geom.bins <- function(guide, layers, default_mapping) {
     list(
       draw_key = layer$geom$draw_key,
       data = data,
-      params = c(layer$geom_params, layer$stat_params)
+      params = c(layer$computed_geom_params, layer$computed_stat_params)
     )
   })
 

R/guide-legend.r

@@ -281,7 +281,7 @@ guide_geom.legend <- function(guide, layers, default_mapping) {
     list(
       draw_key = layer$geom$draw_key,
       data = data,
-      params = c(layer$geom_params, layer$stat_params)
+      params = c(layer$computed_geom_params, layer$computed_stat_params)
     )
   })
 

R/guides-.r

@@ -377,7 +377,7 @@ matched_aes <- function(layer, guide) {
   all <- names(c(layer$computed_mapping, layer$stat$default_aes))
   geom <- c(layer$geom$required_aes, names(layer$geom$default_aes))
   matched <- intersect(intersect(all, geom), names(guide$key))
-  matched <- setdiff(matched, names(layer$geom_params))
+  matched <- setdiff(matched, names(layer$computed_geom_params))
   setdiff(matched, names(layer$aes_params))
 }