Mercurial > repos > lecorguille > xcms_merge
diff xcms_merge.r @ 17:ae28a753a6f8 draft default tip
planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
| author | workflow4metabolomics |
|---|---|
| date | Mon, 03 Feb 2025 14:45:41 +0000 |
| parents | 58b5a4b6e1da |
| children |
line wrap: on
line diff
--- a/xcms_merge.r Mon Jul 15 15:59:38 2024 +0000 +++ b/xcms_merge.r Mon Feb 03 14:45:41 2025 +0000 @@ -1,10 +1,10 @@ #!/usr/bin/env Rscript -#Import the different functions +# Import the different functions source_local <- function(fname) { - argv <- commandArgs(trailingOnly = FALSE) - base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)) - source(paste(base_dir, fname, sep = "/")) + argv <- commandArgs(trailingOnly = FALSE) + base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)) + source(paste(base_dir, fname, sep = "/")) } source_local("lib.r") @@ -12,7 +12,7 @@ loadAndDisplayPackages(pkgs) cat("\n\n") -args <- parseCommandArgs(evaluate = FALSE) #interpretation of arguments given in command line as an R list of objects +args <- parseCommandArgs(evaluate = FALSE) # interpretation of arguments given in command line as an R list of objects cat("\tXSET MERGING...\n") @@ -43,6 +43,6 @@ cat("\n\n") cat("\tSAVE RData\n") -#saving R data in .Rdata file to save the variables used in the present tool -objects2save <- c("xdata", "zipfile", "singlefile", "md5sumList", "sampleNamesList") #, "chromTIC", "chromBPI") +# saving R data in .Rdata file to save the variables used in the present tool +objects2save <- c("xdata", "zipfile", "singlefile", "md5sumList", "sampleNamesList") # , "chromTIC", "chromBPI") save(list = objects2save[objects2save %in% ls()], file = "merged.RData")