Mercurial > repos > lecorguille > xcms_merge
diff xcms_merge.r @ 15:58b5a4b6e1da draft default tip
planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 2cb157bd9a8701a3d6874e084032cbd050b8953e
author | workflow4metabolomics |
---|---|
date | Mon, 11 Sep 2023 09:17:38 +0000 |
parents | 5bd125a3f3b0 |
children |
line wrap: on
line diff
--- a/xcms_merge.r Wed Apr 07 12:07:13 2021 +0000 +++ b/xcms_merge.r Mon Sep 11 09:17:38 2023 +0000 @@ -2,13 +2,15 @@ #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") pkgs <- c("xcms", "batch") loadAndDisplayPackages(pkgs) -cat("\n\n"); +cat("\n\n") args <- parseCommandArgs(evaluate = FALSE) #interpretation of arguments given in command line as an R list of objects