natural name sorting for pathway slices

common/cp_enrichment.R

@@ -370,6 +370,7 @@ keggPathways <- enrResults %>% filter(ontology=="kegg") %$% ac(ID) %>% unique()
 
 require_auto(pathview)
 require_auto(png)
+require_auto(naturalsort)
 
 # keggPathways <- keggPathways[1]
 
@@ -381,9 +382,12 @@ require_auto(png)
 keggOrCode <- guess_pathview_species(geneLists$ensembl_gene_id)
 
 ## prepare p-value data
-sliceData <- overlayData %>%
-#    dcast(ensembl_gene_id ~ comparison, value.var="plot_score") %>%
-    column2rownames("ensembl_gene_id")
+#sliceData <- overlayData %>% column2rownames("ensembl_gene_id")
+
+## sort slices in natural order
+rify_names  <- function(df){ names(df) <- names(df) %>% str_replace_all(" ", "_"); df}
+sliceData <- overlayData %>% rify_names() %>% select_(., .dots=naturalsort(ac(names(.)))) %>% column2rownames("ensembl_gene_id")
+
 
 #sliceData <- sliceData[,1:5]