Mercurial > repos > proteore > proteore_prot_features

diff add_protein_features.R @ 19:381e18f13ed2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload commit 6a3a63d9870148e6fee84e771db614f9da9a8245-dirty"
author proteore
date Thu, 30 Jul 2020 09:45:47 +0000
parents bdbc7620e804
children
line wrap: on
line diff
--- a/add_protein_features.R	Thu Jul 30 09:25:25 2020 +0000
+++ b/add_protein_features.R	Thu Jul 30 09:45:47 2020 +0000
@@ -122,7 +122,7 @@
 get_nextprot_info <- function(nextprot,input,pc_features,localization,diseases_info){
   cols = c("NextprotID",pc_features)
   cols=cols[cols!="None"]
-  info = nextprot[match(input,nextprot$NextprotID),cols]
+  info = nextprot[match(input,nextprot$NextprotID),intersect(colnames(nextprot),cols)]
   return(info)
 }