disabled saving of plotdata

common/cp_enrichment.R

@@ -444,12 +444,14 @@ plot_pathway <- function(pathwayID, sliceData){
 
 
 
-pathwayPlots <- keggPathways %>% llply(function(pathwayID){
+pathwayPlots <- keggPathways %>%
+#    head(3) %>%
+    llply(function(pathwayID){
     plot_pathway(pathwayID, sliceData)
 })
 
 
-save(pathwayPlots, file=".pathwayPlots.RData")
+#save(pathwayPlots, file=".pathwayPlots.RData")
 # pathwayPlots <- local(get(load(".pathwayPlots.RData")))