diff GO-enrich.R @ 40:25222be4a88b draft

planemo upload commit c9d70181a2b587e53dcc4b5885b74b625def6b8c-dirty
author proteore
date Thu, 05 Dec 2019 13:35:24 +0000
parents 0d954174e0e9
children 3fd1ccc57a6a
line wrap: on
line diff
--- a/GO-enrich.R	Thu Sep 26 08:59:40 2019 -0400
+++ b/GO-enrich.R	Thu Dec 05 13:35:24 2019 +0000
@@ -50,6 +50,9 @@
                ont=ontology, 
                level=level, 
                readable=TRUE)
+  
+  ggo@result<-ggo@result[order(-ggo@result$Count),]
+
 
   if (length(ggo@result$ID) > 0 ) {
     ggo@result$Description <- sapply(as.vector(ggo@result$Description), function(x) {ifelse(nchar(x)>50, substr(x,1,50),x)},USE.NAMES = FALSE)