Mercurial > repos > lecorguille > xcms_xcmsset
comparison xcms_xcmsSet.r @ 39:e8d7395a70b2 draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e131bacd37bfaf2c4132fd214c81db9b8a9df513
author | lecorguille |
---|---|
date | Mon, 17 Sep 2018 08:42:53 -0400 |
parents | 9ada611dd63f |
children | a8f0dd2aff5a |
comparison
equal
deleted
inserted
replaced
38:e66eeca443e4 | 39:e8d7395a70b2 |
---|---|
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") | |
15 | 16 |
16 pkgs <- c("xcms","batch") | 17 pkgs <- c("xcms","batch") |
17 loadAndDisplayPackages(pkgs) | 18 loadAndDisplayPackages(pkgs) |
18 cat("\n\n"); | 19 cat("\n\n"); |
19 | 20 |