# HG changeset patch # User proteore # Date 1552322335 14400 # Node ID 0116d444d21fdeab17f53808d125c8f78e48ba3c # Parent 1a4cfa7a3a27529ea0291d74dcdb72c422f9d638 planemo upload commit a957a9b76923f071837aa5d86c1ee2271ebd34fd-dirty diff -r 1a4cfa7a3a27 -r 0116d444d21f add_protein_features.R --- a/add_protein_features.R Mon Mar 11 09:16:00 2019 -0400 +++ b/add_protein_features.R Mon Mar 11 12:38:55 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) } diff -r 1a4cfa7a3a27 -r 0116d444d21f add_protein_features.xml --- a/add_protein_features.xml Mon Mar 11 09:16:00 2019 -0400 +++ b/add_protein_features.xml Mon Mar 11 12:38:55 2019 -0400 @@ -1,4 +1,4 @@ - + [neXtProt]