cosmetics

common/david_enrichment.Rmd

@@ -174,10 +174,7 @@ do({
 l_ply(term_barplot_files$file, function(pngFile){ cat(paste0("<img src='", pngFile, "'><br>"))})
 
 ########################################################################################################################
-```
-
-## Enriched KEGG Pathways
-
+# ' ## Enriched KEGG Pathways
 ```{r eval=nrow(sigEnrResults %>% filter(Category=="KEGG_PATHWAY")) >0}
 ```
 
@@ -241,7 +238,7 @@ plot_pathway <- function(pathwayID, overlayData){
     figuresPlotFile <- file.path("figures", outfile)
     system(paste("mv", outfile, figuresPlotFile))
 
-    system(paste("rm", paste0(pathwayID, ".xml")), paste0(pathwayID, ".png"))
+    system(paste("rm", paste0(pathwayID, ".xml"), paste0(pathwayID, ".png")))
 
     ## interactive plotting
 #    ima <- readPNG(outfile)