Mercurial > repos > proteore > proteore_prot_features

comparison add_protein_features.R @ 16:7caa90759aba draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 4ba1ebe7b3f5e3fabf78b5fed7ed0b92e2cbf9e5-dirty
author proteore
date Fri, 28 Jun 2019 05:05:25 -0400
parents 0116d444d21f
children 0a9ae3d7dbf2
comparison
equal deleted inserted replaced
15:da885fff7cf6 16:7caa90759aba
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)