diff Intchecks/wrapper_intensity_check.R @ 4:49c36c54e0cf draft

Uploaded

--- a/Intchecks/wrapper_intensity_check.R	Fri Mar 08 09:07:12 2019 -0500
+++ b/Intchecks/wrapper_intensity_check.R	Fri Jan 03 11:09:05 2020 -0500
@@ -29,6 +29,12 @@
 
 if(length(args) < 7){ stop("NOT enough argument !!!") }
 
+cat('\nJob starting time:\n',format(Sys.time(), "%a %d %b %Y %X"),
+'\n\n--------------------------------------------------------------------', 
+'\nIntensity Check parameters:\n\n')
+print(args)
+cat('--------------------------------------------------------------------\n\n')
+
 class_col <- NULL
 test_fold <- NULL
 class1 <- NULL
@@ -55,24 +61,24 @@
 
 if(((args$method == "no_class")&&(args$chosen_stat == "None"))||
    ((args$method != "no_class") && (args$chosen_stat == "None") && (test_fold == "No"))){
-  err_no_option<- "You did not select any computational option. Program could not be executed."
+  err_no_option<- "You did not select any computational option. Program can not be executed."
   stop("\n- - - - - - - - -\n",err_no_option,"\n- - - - - - - - -\n")
 }
 
 
-#print args
-cat("\n-------------------------------\nIntensity Check parameters:\n\n")
-print(args)
-cat("--------------------------------\n")
-
 if(is.null(err_no_option)){
 
   intens_check(args$dataMatrix_in, args$sampleMetadata_in, args$variableMetadata_in, args$method, args$chosen_stat, 
              class_col, test_fold, class1, fold_frac, logarithm, args$variableMetadata_out, args$graphs_out)
 }
-  
+
+
+cat('\n--------------------------------------------------------------------',
+'\nInformation about R (version, Operating System, attached or loaded packages):\n\n')
 sessionInfo()
-cat("--------------------------------\n")
+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)