Mercurial > repos > melpetera > tablemerge
diff TableMerge/tablemerge_wrap.R @ 1:e44c5246247a draft default tip
Uploaded
author | melpetera |
---|---|
date | Thu, 14 Nov 2019 12:33:41 -0500 |
parents | 902ab790fb7b |
children |
line wrap: on
line diff
--- a/TableMerge/tablemerge_wrap.R Thu Feb 23 04:37:49 2017 -0500 +++ b/TableMerge/tablemerge_wrap.R Thu Nov 14 12:33:41 2019 -0500 @@ -7,7 +7,8 @@ # User: Galaxy # # Original data: used with tablemerge_script.R # # Starting date: 11-05-2015 # -# V-1: Firt version of wrapper # +# V-1: First version of wrapper # +# V-2: Addition of prints about input parameters and job info # # # # # # Input files: dataMatrix ; Metadata file # @@ -31,8 +32,22 @@ if(length(args) < 4){ stop("NOT enough argument !!!") } +cat('\nJob starting time:\n',format(Sys.time(), "%a %d %b %Y %X"), +'\n\n--------------------------------------------------------------------', +'\nParameters used in "Table Merge":\n\n') +print(args) +cat('--------------------------------------------------------------------\n\n') + + tab.merge(args$dataMatrix_in, args$Metadata_in, args$metatype, args$combined_out) +cat('\n--------------------------------------------------------------------', +'\nInformation about R (version, Operating System, attached or loaded packages):\n\n') +sessionInfo() +cat('--------------------------------------------------------------------\n', +'\nJob ending time:\n',format(Sys.time(), "%a %d %b %Y %X")) + + #delete the parameters to avoid the passage to the next tool in .RData image rm(args)