Early exit earlier

Author: teunbrand

R/guides-.R

@@ -71,6 +71,9 @@ guides <- function(...) {
   if (length(args) > 0) {
     if (is.list(args[[1]]) && !is.guide(args[[1]])) args <- args[[1]]
     args <- rename_aes(args)
+  # If there are no guides do nothing
+  if (length(args) == 0) {
+    return(NULL)
   }
 
   idx_false <- vapply(args, isFALSE, FUN.VALUE = logical(1L))
@@ -84,11 +87,6 @@ guides <- function(...) {
     return(guides_list(guides = args))
   }
 
-  # If there are no guides, do nothing
-  if (length(args) == 0) {
-    return(NULL)
-  }
-
   # Raise warning about unnamed guides
   nms <- names(args)
   if (is.null(nms)) {