Adapt examples (#52)

* adapt examples

* fix NULL check_overlap

R/key-group.R

@@ -32,7 +32,7 @@
 #' @examples
 #' # Example scale
 #' values <- c("group A:value 1", "group A:value 2", "group B:value 1")
-#' template <- scale_colour_discrete(limits = values)
+#' template <- scale_colour_hue(limits = values)
 #'
 #' # Treat the 'group X' part as groups
 #' key <- key_group_split(sep = ":")
@@ -43,7 +43,7 @@
 #' key(template)
 #'
 #' # Example scale
-#' template <- scale_colour_discrete(limits = msleep$name[c(1, 7, 9, 23, 24)])
+#' template <- scale_colour_hue(limits = msleep$name[c(1, 7, 9, 23, 24)])
 #'
 #' # A lookup table can have more entries than needed
 #' key <- key_group_lut(msleep$name, msleep$order)

R/primitive-labels.R

@@ -181,7 +181,8 @@ draw_labels <- function(key, element, angle, offset,
   margin_x <- switch(position, left = , right = TRUE, FALSE)
   margin_y <- switch(position, top = , bottom = TRUE, FALSE)
 
-  if (check_overlap %||% FALSE) {
+  check_overlap <- check_overlap %||% FALSE
+  if (check_overlap) {
     order <- label_priority(n_breaks)
     key <- vec_slice(key, order)
   }
@@ -214,7 +215,7 @@ draw_labels <- function(key, element, angle, offset,
       lineheight = key$.lineheight,
       margin_x = margin_x,
       margin_y = margin_y,
-      check.overlap = check_overlap %||% FALSE
+      check.overlap = check_overlap
     )
     return(grob)
   }