simplified debugging setup

common/cp_enrichment.R

@@ -302,14 +302,22 @@ term_barplot_files <- erPlotData %>%
     mutate(Term=str_sub(Term, 1, 70) %>% str_pad(70)) %>%
 do({
     enrResultsGrp <- .
+
+    ## DEBUG   enrResultsGrp <- erPlotData %>% ungroup() %>% filter(contrast==contrast[1])
+#    with(enrResultsGrp, as.data.frame(table(contrast)))
+
 #    browser()
     ## DEBUG enrResultsGrp <- sigEnrResults
 #    label <- geneLists %>% semi_join(enrResultsGrp) %>% first(1) %>% dplyr::select(-ensembl_gene_id) %>% paste0(., collapse="_")
     label <- subset(enrResultsGrp, select=group_col)[1,1] %>% as.matrix %>% ac
 
 
-#browser()
-    warning(paste0("processing terms", paste(ac(unique(enrResultsGrp$Category)), collapse=",")))
+#stopifnot(all(!is.na(enrResultsGrp$Term)))
+#stopifnot(all(!is.na(enrResultsGrp$ontology)))
+#stopifnot(all(!is.na(enrResultsGrp$num_term_genes)))
+
+    #browser()
+#    warning(paste0("processing terms", paste(ac(unique(enrResultsGrp$ontology)), collapse=",")))
     logPlot <- enrResultsGrp %>%
         ## fix factor order
 #        mutate(Term=reorder(Term, -qvalue) %>% reorder(as.integer(as.factor(ontology)))) %>%