Mercurial > repos > lecorguille > xcms_plot_chromatogram
comparison xcms_plot_chromatogram.r @ 7:a4a1143a202a draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e131bacd37bfaf2c4132fd214c81db9b8a9df513
| author | lecorguille |
|---|---|
| date | Mon, 17 Sep 2018 08:43:39 -0400 |
| parents | e0b5c547925d |
| children | 5f0327d6f474 |
comparison
equal
deleted
inserted
replaced
| 6:e0b5c547925d | 7:a4a1143a202a |
|---|---|
| 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") | |
| 10 | 11 |
| 11 pkgs <- c("xcms","batch","RColorBrewer") | 12 pkgs <- c("xcms","batch","RColorBrewer") |
| 12 loadAndDisplayPackages(pkgs) | 13 loadAndDisplayPackages(pkgs) |
| 13 cat("\n\n"); | 14 cat("\n\n"); |
| 14 | 15 |