fix: don't do plot_layout() in plotPD()

behaves strangely with non-square layouts
openair-project · Aug 8, 2024 · 6052c34 · 6052c34
1 parent df55d6a
commit 6052c34
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/plotPD.R b/R/plotPD.R
@@ -74,11 +74,8 @@ plotPD <- function(dw_model,
   printplots <- plots
   if ("wd" %in% names(printplots) & polar.wd) {
     printplots$wd <- patchwork::free(printplots$wd)
-    pw <- patchwork::wrap_plots(printplots, nrow = nrow)
-  } else {
-    pw <- patchwork::wrap_plots(printplots, nrow = nrow) +
-      patchwork::plot_layout(axes = "collect", axis_titles = "collect")
   }
+  pw <- patchwork::wrap_plots(printplots, nrow = nrow)
 
   # plot if `plot`
   if (plot) {