using panel spacing from the global theme

R/alignpatch-align_plots.R

@@ -250,9 +250,12 @@ update_layout_title <- function(old, new) update_non_waive(old, new)
 #'
 #' - modify the theme of the layout
 #'
-#' @param theme A [`theme()`][ggplot2::theme] used to render the `guides`,
-#' `title`, `subtitle`, `caption`, `margins`, `patch.title`, `panel.border`, and
-#' `background`. If `NULL` (default), will inherit from the parent `layout`.
+#' @param theme A [`theme()`][ggplot2::theme] object used to customize various
+#' elements of the plot, including `guides`, `title`, `subtitle`, `caption`,
+#' `margins`, `patch.title`, `panel.border`, and `background`. By default, the
+#' theme will inherit from the parent `layout`. When aligning observations, it
+#' also controls the panel spacing for all plots in the layout.
+#'
 #' @inheritParams rlang::args_dots_empty
 #'
 #' @details

R/layout-.R

@@ -100,7 +100,7 @@ inherit_parent_layout_theme <- function(layout, theme, direction) {
             panel.spacing.x = calc_element("panel.spacing.x", theme)
         )
     }
-    if (is.null(layout@theme)) return(layout@theme) # styler: off
+    if (is.null(layout@theme)) return(theme) # styler: off
     layout@theme + theme
 }
 

R/layout-quad-build.R

@@ -192,6 +192,12 @@ quad_build.QuadLayout <- function(quad, schemes = NULL, theme = NULL,
 
     # add action ----------------------------------------
     p <- plot_add_schemes(p, inherit_schemes(quad@body_schemes, schemes))
+    if (!is.null(row_coords)) {
+        p <- p + theme(panel.spacing.y = calc_element("panel.spacing.y", theme))
+    }
+    if (!is.null(column_coords)) {
+        p <- p + theme(panel.spacing.x = calc_element("panel.spacing.x", theme))
+    }
 
     # collect all plots and sizes ----------------------
     plots <- append(plots, list(main = p), 2L)