Mercurial > repos > lecorguille > xcms_retcor
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 |