diff TableMerge/tablemerge_wrap.R @ 2:fb42f8b52942 draft default tip

Uploaded

--- a/TableMerge/tablemerge_wrap.R	Fri Feb 17 05:36:13 2017 -0500
+++ b/TableMerge/tablemerge_wrap.R	Thu Nov 14 15:20:52 2019 +0000
@@ -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)