Mercurial > repos > proteore > proteore_prot_features
comparison add_protein_features.R @ 19:381e18f13ed2 draft
"planemo upload commit 6a3a63d9870148e6fee84e771db614f9da9a8245-dirty"
| author | proteore |
|---|---|
| date | Thu, 30 Jul 2020 09:45:47 +0000 |
| parents | bdbc7620e804 |
| children |
comparison
equal
deleted
inserted
replaced
| 18:bdbc7620e804 | 19:381e18f13ed2 |
|---|---|
| 120 | 120 |
| 121 # Get information from neXtProt | 121 # Get information from neXtProt |
| 122 get_nextprot_info <- function(nextprot,input,pc_features,localization,diseases_info){ | 122 get_nextprot_info <- function(nextprot,input,pc_features,localization,diseases_info){ |
| 123 cols = c("NextprotID",pc_features) | 123 cols = c("NextprotID",pc_features) |
| 124 cols=cols[cols!="None"] | 124 cols=cols[cols!="None"] |
| 125 info = nextprot[match(input,nextprot$NextprotID),cols] | 125 info = nextprot[match(input,nextprot$NextprotID),intersect(colnames(nextprot),cols)] |
| 126 return(info) | 126 return(info) |
| 127 } | 127 } |
| 128 | 128 |
| 129 protein_features = function() { | 129 protein_features = function() { |
| 130 | 130 |