diff GO-enrich.R @ 22:6dafa28110f5 draft

planemo upload commit f9fa23f3f9cefa5c4a3dc06686add83a23c17ad0-dirty
author proteore
date Thu, 04 Oct 2018 09:25:39 -0400
parents a91d407e1938
children 879367568ea6
line wrap: on
line diff
--- a/GO-enrich.R	Wed Oct 03 04:19:18 2018 -0400
+++ b/GO-enrich.R	Thu Oct 04 09:25:39 2018 -0400
@@ -182,7 +182,7 @@
     # Get file content
     file = readfile(filename, header)
     # Extract Protein IDs list
-    input =  sapply(as.character(file[,ncol]),function(x) rapply(strsplit(x,";"),c),USE.NAMES = FALSE)
+    input =  unlist(sapply(as.character(file[,ncol]),function(x) rapply(strsplit(x,";"),c),USE.NAMES = FALSE))
   }
   id_type = args$id_type
   ## Get input gene list from input IDs