Mercurial > repos > lecorguille > xcms_merge
comparison xcms_merge.r @ 20:068243731881 draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit f0d42bca2f34c58c04b55e5990058d479c0ae639
author | lecorguille |
---|---|
date | Fri, 08 Feb 2019 09:58:33 -0500 |
parents | 40791ab6c06b |
children | 4dca783526d9 |
comparison
equal
deleted
inserted
replaced
19:7b77a7238777 | 20:068243731881 |
---|---|
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 |