diff TableMerge/tablemerge_wrap.R @ 1:e44c5246247a draft default tip

Uploaded

--- 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)