kmerclust_plot.R: reduce memory consumption

src/bin/kmerclust_plot.R

@@ -3,7 +3,6 @@ library(ggplot2)
 
 args <- commandArgs(trailingOnly = TRUE)
 print(args)
-load(file = paste0(args[1], ".Rdata"))
 load(file = paste0(args[1], "_boot.Rdata"))
 
 print(res)
@@ -17,6 +16,9 @@ res %>%
   geom_violin() +
   theme_bw()
 ggsave(paste0(args[1], "_WSS_BSS.pdf"))
+rm(res)
+
+load(file = paste0(args[1], ".Rdata"))
 count %>%
   ggplot(aes(x = count_m, y = count_f)) +
   theme_bw()