adjust to very large panels due to many groups

epigen · Dec 24, 2023 · 343714b · 343714b
1 parent 1b9d4a2
commit 343714b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/workflow/scripts/utils.R b/workflow/scripts/utils.R
@@ -7,6 +7,10 @@ ggsave_new <- function(filename, results_path, plot, width=5, height=5){
         dir.create(results_path, recursive = TRUE)
     }
 
+    # failsafe for large plots
+    width <- min(100, width)
+    height <- min(100, height)
+
     for (format in c('png')){
         ggsave(
           paste0(filename,'.',format),

diff --git a/workflow/scripts/volcanos.R b/workflow/scripts/volcanos.R
@@ -3,6 +3,8 @@ library(EnhancedVolcano, quietly=TRUE)
 library(patchwork, quietly=TRUE)
 library(ggplot2)
 
+options(ragg.max_dim = 100000) # required for large volcano panels
+
 # source utility functions
 # source("workflow/scripts/utils.R")
 snakemake@source("./utils.R")