diff IDchoice/IDchoice_wrap.R @ 1:dfd23f54f61f draft default tip

Uploaded

--- a/IDchoice/IDchoice_wrap.R	Mon Jan 14 08:47:08 2019 -0500
+++ b/IDchoice/IDchoice_wrap.R	Thu Dec 19 10:31:03 2019 +0000
@@ -7,7 +7,8 @@
 # User: Galaxy                                                                                 #
 # Original data: used with IDchoice_script.R                                                   #
 # Starting date: 01-06-2017                                                                    #
-# V-1: Firt version of wrapper                                                                 #
+# V-1: First version of wrapper                                                                #
+# V-2: Additional information in stdout                                                        #
 #                                                                                              #
 #                                                                                              #
 # Input files: dataMatrix ; Metadata file                                                      #
@@ -31,8 +32,22 @@
 if(length(args) < 7){ stop("NOT enough argument !!!") }
 
 
+cat('\nJob starting time:\n',format(Sys.time(), "%a %d %b %Y %X"),
+'\n\n--------------------------------------------------------------------', 
+'\nParameters used in "ID choice":\n\n')
+print(args)
+cat('--------------------------------------------------------------------\n\n')
+
+
 id.choice(args$dataMatrix_in, args$Metadata_in, args$metatype, args$col_name, args$makeunique, args$DM_out, args$meta_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)