Mercurial > repos > proteore > proteore_prot_features

comparison add_protein_features.R @ 14:564e620ba3cb draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit e8aae7c385ce83f4ae7494d53b1c0190e3ef6f9a-dirty
author proteore
date Tue, 14 May 2019 09:43:07 -0400
parents aca66c3b8fbb
children bdbc7620e804
comparison
equal deleted inserted replaced
13:abfc593779dc 14:564e620ba3cb
18 } 18 }
19 return (df) 19 return (df)
20 } 20 }
21 21
22 get_list_from_cp <-function(list){ 22 get_list_from_cp <-function(list){
23 list = gsub(";","\t",list)
23 list = strsplit(list, "[ \t\n]+")[[1]] 24 list = strsplit(list, "[ \t\n]+")[[1]]
24 list = gsub("NA","",list) 25 list = gsub("NA","",list)
25 list = list[list != ""] #remove empty entry 26 list = list[list != ""] #remove empty entry
26 list = gsub("-.+", "", list) #Remove isoform accession number (e.g. "-2") 27 list = gsub("-.+", "", list) #Remove isoform accession number (e.g. "-2")
27 return(list) 28 return(list)