comparison xcms_merge.r @ 8:a26679f68d4d draft

planemo upload for repository https://github.com/workflow4metabolomics/xcms commit f0d42bca2f34c58c04b55e5990058d479c0ae639
author lecorguille
date Mon, 11 Feb 2019 05:58:26 -0500
parents f439ed7a8f03
children 772290533d6e
comparison
equal deleted inserted replaced
7:a9d451591d7b 8:a26679f68d4d
1 #!/usr/bin/env Rscript 1 #!/usr/bin/env Rscript
2 2
3 #Import the different functions 3 #Import the different functions
4 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) } 4 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) }
5 source_local("lib.r") 5 source_local("lib.r")
6 source_local("lib-xcms3.x.x.r")
7 6
8 pkgs <- c("xcms","batch") 7 pkgs <- c("xcms","batch")
9 loadAndDisplayPackages(pkgs) 8 loadAndDisplayPackages(pkgs)
10 cat("\n\n"); 9 cat("\n\n");
11 10