Commit 10c2d0fc authored by domingue's avatar domingue
Browse files

Bug fix: only the plots from the first comparison were being shown.

- removed extra dev.off

Part of #96
parent 11af63fd
......@@ -347,7 +347,6 @@ for (contrast in names(fgseaRes_l)){
ggsave(paste0("figure/", resultsBase, pathway, ".", clean_names(contrast, sep = "_"), ".enrichment_plot.pdf"))
}
dev.off()
topPathwaysUp <- top_pathways[ES > 0 & padj < qcutoff][order(pval), pathway]
topPathwaysDown <- top_pathways[ES < 0 & padj < qcutoff][order(pval), pathway]
topPathways <- c(topPathwaysUp, rev(topPathwaysDown))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment