Move args to wrap_plots()

mayer79 · mayer79 · commit ee967ea798a9 · 2025-06-20T16:51:30.000+02:00
diff --git a/R/sv_interaction.R b/R/sv_interaction.R
@@ -185,8 +185,7 @@ sv_interaction.mshapviz <- function(
     return(plot_list)
   }
   plot_list <- add_titles(plot_list, nms = names(object)) # see sv_waterfall()
-  p <- patchwork::wrap_plots(plot_list) +
-    patchwork::plot_layout(axis_titles = "collect", guides = "collect")
+  p <- patchwork::wrap_plots(plot_list, axis_titles = "collect", guides = "collect")
 
   return(p)
 }

Original file line number	Diff line number	Diff line change
`@@ -185,8 +185,7 @@ sv_interaction.mshapviz <- function(`
`185`	`185`	`return(plot_list)`
`186`	`186`	`}`
`187`	`187`	`plot_list <- add_titles(plot_list, nms = names(object)) # see sv_waterfall()`
`188`		`- p <- patchwork::wrap_plots(plot_list) +`
`189`		`- patchwork::plot_layout(axis_titles = "collect", guides = "collect")`
	`188`	`+ p <- patchwork::wrap_plots(plot_list, axis_titles = "collect", guides = "collect")`
`190`	`189`
`191`	`190`	`return(p)`
`192`	`191`	`}`