# HG changeset patch
# User proteore
# Date 1547802827 18000
# Node ID 8df559ad14a719ef8227d2845eea322d5d4d8b5d
# Parent  4de4f6359820fe396f0401cd4c0f258a940c46c5
planemo upload commit 27f7b6a4a0139ca47ae874fe2fe6de4bd40ffbcf-dirty

diff -r 4de4f6359820 -r 8df559ad14a7 add_protein_features.R
--- a/add_protein_features.R	Tue Dec 18 09:13:47 2018 -0500
+++ b/add_protein_features.R	Fri Jan 18 04:13:47 2019 -0500
@@ -136,8 +136,8 @@
 
   args <- get_args()  
   
-  #save(args,file="/home/dchristiany/proteore_project/ProteoRE/tools/add_human_protein_features/args.rda")
-  #load("/home/dchristiany/proteore_project/ProteoRE/tools/add_human_protein_features/args.rda")
+  #save(args,file="/home/dchristiany/proteore_project/ProteoRE/tools/add_protein_features/args.rda")
+  #load("/home/dchristiany/proteore_project/ProteoRE/tools/add_protein_features/args.rda")
   
   #setting variables
   inputtype = args$inputtype
@@ -194,6 +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
     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)
   } 
diff -r 4de4f6359820 -r 8df559ad14a7 add_protein_features.xml
--- a/add_protein_features.xml	Tue Dec 18 09:13:47 2018 -0500
+++ b/add_protein_features.xml	Fri Jan 18 04:13:47 2019 -0500
@@ -1,4 +1,4 @@
-<tool id="prot_features" name="Add protein features" version="2018.12.18">
+<tool id="prot_features" name="Add protein features" version="2019.01.18">
 <description>[neXtProt]
 </description>
 <requirements>