diff Intchecks/wrapper_intensity_check.R @ 6:ec75de7f1e08 draft default tip

Uploaded

--- a/Intchecks/wrapper_intensity_check.R	Wed Jan 22 09:34:08 2020 -0500
+++ b/Intchecks/wrapper_intensity_check.R	Mon Dec 11 12:56:20 2023 +0000
@@ -14,17 +14,15 @@
 #                                                                           #
 #############################################################################
 
-
-library(batch) #necessary for parseCommandArgs function
-args = parseCommandArgs(evaluate=FALSE) #interpretation of arguments given in command line as an R list of objects
-
 source_local <- function(...){
   argv <- commandArgs(trailingOnly = FALSE)
   base_dir <- dirname(substring(argv[grep("--file=", argv)], 8))
   for(i in 1:length(list(...))){source(paste(base_dir, list(...)[[i]], sep="/"))}
 }
 #Import the different functions
-source_local("Script_intensity_check.R", "RcheckLibrary.R")
+source_local("parseargs.R", "Script_intensity_check.R", "RcheckLibrary.R")
+
+args = parse_args() #interpretation of arguments given in command line as an R list of objects
 
 
 if(length(args) < 7){ stop("NOT enough argument !!!") }