diff kegg_identification.R @ 4:dc39f12f96d1 draft

planemo upload commit 6854718828a7478905b41fb92d6f96ab41896e84-dirty
author proteore
date Tue, 14 May 2019 09:04:22 -0400
parents e7b3609160c5
children 042254fb1f8d
line wrap: on
line diff
--- a/kegg_identification.R	Tue May 14 08:51:46 2019 -0400
+++ b/kegg_identification.R	Tue May 14 09:04:22 2019 -0400
@@ -71,7 +71,6 @@
 }
 
 get_list_from_cp <-function(list){
-  list = gsub(";","\t",list)
   list = strsplit(list, "[ \t\n]+")[[1]]
   list = gsub("[[:blank:]]|\u00A0|NA","",list)
   list = list[which(!is.na(list[list != ""]))]    #remove empty entry