comparison xcms_retcor.r @ 42:feb216e6aef7 draft

planemo upload for repository https://github.com/workflow4metabolomics/xcms commit f0d42bca2f34c58c04b55e5990058d479c0ae639
author lecorguille
date Fri, 08 Feb 2019 10:01:19 -0500
parents 67ee46ce9781
children 221a8c6de94a
comparison
equal deleted inserted replaced
41:830e7a6fff0e 42:feb216e6aef7
10 cat("\tSESSION INFO\n") 10 cat("\tSESSION INFO\n")
11 11
12 #Import the different functions 12 #Import the different functions
13 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) } 13 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) }
14 source_local("lib.r") 14 source_local("lib.r")
15 source_local("lib-xcms3.x.x.r")
16 15
17 pkgs <- c("xcms","batch","RColorBrewer") 16 pkgs <- c("xcms","batch","RColorBrewer")
18 loadAndDisplayPackages(pkgs) 17 loadAndDisplayPackages(pkgs)
19 cat("\n\n"); 18 cat("\n\n");
20 19