fixed: duplicated pathways

dge_workflow/cuffdiff_report.R

@@ -519,7 +519,7 @@ l_ply(term_barplot_files$file, function(pngFile){ cat(paste0("<img src='", pngFi
 keggPathways <- sigEnrResults %>%
     filter(Category=="KEGG_PATHWAY") %>%
     separate(Term, c('kegg_pathway_id', 'pathway_description'), sep="\\:", remove=F) %>%
-    with(kegg_pathway_id) %>% ac()
+    with(kegg_pathway_id) %>% ac() %>% unique()
 
 require(pathview)
 require(png)