Mercurial > repos > proteore > proteore_maps_visualization

comparison kegg_maps_visualization.R @ 5:f4e02d20546b draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit c6b2e31fccac66c2caa687b375cbf9947f7ba88e-dirty
author proteore
date Tue, 14 May 2019 09:28:50 -0400
parents 4cc2265d1294
children ab697ebe0f41
comparison
equal deleted inserted replaced
4:4cc2265d1294 5:f4e02d20546b
73 string <- gsub("X","",string) 73 string <- gsub("X","",string)
74 return(string) 74 return(string)
75 } 75 }
76 76
77 get_list_from_cp <-function(list){ 77 get_list_from_cp <-function(list){
78 list = gsub(";","\t",list)
78 list = gsub(",","\t",list) 79 list = gsub(",","\t",list)
79 list = strsplit(list, "[ \t\n]+")[[1]] 80 list = strsplit(list, "[ \t\n]+")[[1]]
80 list = list[list != ""] #remove empty entry 81 list = list[list != ""] #remove empty entry
81 list = gsub("-.+", "", list) #Remove isoform accession number (e.g. "-2") 82 list = gsub("-.+", "", list) #Remove isoform accession number (e.g. "-2")
82 return(list) 83 return(list)