Mercurial > repos > lecorguille > xcms_plot_chromatogram
comparison xcms_plot_chromatogram.r @ 5:7c0cc7a3c3db draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit f0d42bca2f34c58c04b55e5990058d479c0ae639
author | lecorguille |
---|---|
date | Mon, 11 Feb 2019 05:55:07 -0500 |
parents | c749bfd3410e |
children | 271c9d5f0d10 |
comparison
equal
deleted
inserted
replaced
4:caf45efb34bf | 5:7c0cc7a3c3db |
---|---|
5 cat("\tSESSION INFO\n") | 5 cat("\tSESSION INFO\n") |
6 | 6 |
7 #Import the different functions | 7 #Import the different functions |
8 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) } | 8 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) } |
9 source_local("lib.r") | 9 source_local("lib.r") |
10 source_local("lib-xcms3.x.x.r") | |
11 | 10 |
12 pkgs <- c("xcms","batch","RColorBrewer") | 11 pkgs <- c("xcms","batch","RColorBrewer") |
13 loadAndDisplayPackages(pkgs) | 12 loadAndDisplayPackages(pkgs) |
14 cat("\n\n"); | 13 cat("\n\n"); |
15 | 14 |