Mercurial > repos > proteore > proteore_prot_features

diff add_protein_features.R @ 8:aca66c3b8fbb draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 3e8aad84b7fe9218370364b1aef3ea5779475f9f-dirty
author proteore
date Fri, 10 May 2019 03:59:23 -0400
parents bb4a5f1b415f
children 564e620ba3cb
line wrap: on
line diff
--- a/add_protein_features.R	Mon Mar 11 04:48:52 2019 -0400
+++ b/add_protein_features.R	Fri May 10 03:59:23 2019 -0400
@@ -194,7 +194,7 @@
     res = res[!duplicated(res$NextprotID),]
     output_content = merge(file, res,by.x=ncol,by.y="NextprotID",incomparables = NA,all.x=T)
     output_content = order_columns(output_content,ncol,id_type,file)
-    output_content = output_content[,-which(colnames(output_content)=="NextprotID")]      #remove nextprotID column
+    if (id_type=="Uniprot_AC"){output_content = output_content[,-which(colnames(output_content)=="NextprotID")]}      #remove nextprotID column
     output_content <- as.data.frame(apply(output_content, c(1,2), function(x) gsub("^$|^ $", NA, x)))  #convert "" et " " to NA
     write.table(output_content, output, row.names = FALSE, sep = "\t", quote = FALSE)
   }