Skip to content
Snippets Groups Projects
Commit 21e4db13 authored by Holger Brandl's avatar Holger Brandl
Browse files

natural name sorting for pathway slices

parent eeb1b057
No related branches found
Tags v1.8
No related merge requests found
......@@ -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]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment