| Previous changeset 10:4de4f6359820 (2018-12-18) Next changeset 12:1a4cfa7a3a27 (2019-03-11) |
|
Commit message:
planemo upload commit 27f7b6a4a0139ca47ae874fe2fe6de4bd40ffbcf-dirty |
|
modified:
add_protein_features.R add_protein_features.xml |
| b |
| 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) } |
| b |
| 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> |