Mercurial > repos > proteore > proteore_prot_features_mouse
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) |