comparison add_protein_features_mouse.R @ 2:1dea4e5f638f draft default tip

planemo upload commit 4ba1ebe7b3f5e3fabf78b5fed7ed0b92e2cbf9e5-dirty
author proteore
date Fri, 28 Jun 2019 05:05:58 -0400
parents f10816a9dd0b
children
comparison
equal deleted inserted replaced
1:f10816a9dd0b 2:1dea4e5f638f
9 } 9 }
10 return (df) 10 return (df)
11 } 11 }
12 12
13 get_list_from_cp <-function(list){ 13 get_list_from_cp <-function(list){
14 list = gsub(";","\t",list)
14 list = strsplit(list, "[ \t\n]+")[[1]] 15 list = strsplit(list, "[ \t\n]+")[[1]]
15 list = gsub("NA","",list) 16 list = gsub("NA","",list)
16 list = list[list != ""] #remove empty entry 17 list = list[list != ""] #remove empty entry
17 list = gsub("-.+", "", list) #Remove isoform accession number (e.g. "-2") 18 list = gsub("-.+", "", list) #Remove isoform accession number (e.g. "-2")
18 return(list) 19 return(list)