diff --git a/R/guide-.R b/R/guide-.R index e185ec67b0..02af3a9567 100644 --- a/R/guide-.R +++ b/R/guide-.R @@ -297,11 +297,12 @@ Guide <- ggproto( draw = function(self, theme, position = NULL, direction = NULL, params = self$params) { - key <- params$key - - # Setup parameters and theme + # Setup parameters params <- replace_null(params, position = position, direction = direction) params <- self$setup_params(params) + key <- params$key + + # Setup style options elems <- self$setup_elements(params, self$elements, theme) elems <- self$override_elements(params, elems, theme)