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