making the code more readable

jtlandis · Dec 9, 2023 · 375eb63 · 375eb63
1 parent 930f6bf
commit 375eb63
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/plot-construction.R b/R/plot-construction.R
@@ -47,7 +47,10 @@ update_ggside.ggplot <- function(object, ggside = NULL){
   object$ggside$collapse <- ggside$collapse %||% object$ggside$collapse %||% NULL
   fp <- object[['facet']]$params
   col <- object$ggside$collapse
-  if (!is.null(fp$free) && !is.null(col) && inherits(object[['facet']], "FacetWrap") && any(.lgl <- vapply(fp$free, identity, logical(1)))) {
+  if (!is.null(fp$free) &&
+      !is.null(col) &&
+      inherits(object[['facet']], "FacetWrap") &&
+      any(.lgl <- vapply(fp$free, identity, logical(1)))) {
     # if ggside collapse all - but scales is free - prioritize the scale and dont
     # collapse
     # i.e. facet_wrap(..., scales='free_y') + ggside(collapse="y") --> warning