comparison xcms_summary.r @ 39:1d2cc6c87acf draft

planemo upload for repository https://github.com/workflow4metabolomics/xcms commit f0d42bca2f34c58c04b55e5990058d479c0ae639
author lecorguille
date Fri, 08 Feb 2019 10:04:57 -0500
parents 12c802da5367
children 5d59db39939a
comparison
equal deleted inserted replaced
38:3385de0c0908 39:1d2cc6c87acf
13 cat("\tSESSION INFO\n") 13 cat("\tSESSION INFO\n")
14 14
15 #Import the different functions 15 #Import the different functions
16 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) } 16 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) }
17 source_local("lib.r") 17 source_local("lib.r")
18 source_local("lib-xcms3.x.x.r")
19 18
20 pkgs <- c("CAMERA","batch") 19 pkgs <- c("CAMERA","batch")
21 loadAndDisplayPackages(pkgs) 20 loadAndDisplayPackages(pkgs)
22 cat("\n\n"); 21 cat("\n\n");
23 22