prepend page break to plots to avoid truncation

pik-piam · Sep 5, 2024 · 1ab8df3 · 1ab8df3
1 parent 5bd00b9
commit 1ab8df3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/R/showAreaAndBarPlots.R b/R/showAreaAndBarPlots.R
@@ -194,6 +194,8 @@ showAreaAndBarPlots <- function(
     }
   }
 
+  cat("\\clearpage")
+
   # Show plots.
   if (showNonMainRegs) {
     grid.arrange(p1, p2, p3, layout_matrix = rbind(c(1, 3), c(2, 3)), left = label)

diff --git a/R/showLinePlots.R b/R/showLinePlots.R
@@ -158,6 +158,7 @@ showLinePlots <- function(
   }
 
   # Show plots.
+  cat("\\clearpage")
   grid.arrange(p1, p2, nrow = 1)
   cat("\n\n")