Mercurial > repos > proteore > proteore_prot_features
diff add_protein_features.R @ 11:8df559ad14a7 draft
planemo upload commit 27f7b6a4a0139ca47ae874fe2fe6de4bd40ffbcf-dirty
| author | proteore |
|---|---|
| date | Fri, 18 Jan 2019 04:13:47 -0500 |
| parents | 0b46a7aead62 |
| children | 1a4cfa7a3a27 |
line wrap: on
line diff
--- 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) }