diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-01-27 08:17:08 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-01-27 08:48:29 +0100 |
| commit | 3c82d26206e2f2e74600acd71a49c70eaed555c4 (patch) | |
| tree | 22c524a90d6d27f77e2abbc759281359eda69c45 /R | |
| parent | 536c49fefc6c46b2263c806b383339662174fc49 (diff) | |
Also test run with metabolites
Diffstat (limited to 'R')
| -rw-r--r-- | R/PELMO_runs.R | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/R/PELMO_runs.R b/R/PELMO_runs.R index 7430b40..f599110 100644 --- a/R/PELMO_runs.R +++ b/R/PELMO_runs.R @@ -158,7 +158,7 @@ PELMO_runs <- function(runs, psm_dir = ".", version = "5.5.3", PELMO_base = "aut #' @inheritParams PELMO_runs #' @importFrom parallel mclapply #' @export -run_PELMO <- function(runs, psm_dir = ".", version = "5.5.3", PELMO_base = "auto", +run_PELMO <- function(runs, version = "5.5.3", PELMO_base = "auto", cores = getOption("mc.cores", 2L)) { @@ -204,7 +204,8 @@ run_PELMO <- function(runs, psm_dir = ".", version = "5.5.3", PELMO_base = "auto # We need to go the directory to simplify calling pelmo with wine setwd(run_dir_exe) - psm_file <- file.path(psm_dir, paste0(psm, ".psm")) + psm_file <- paste0(psm, ".psm") + message("Starting ", pelmo_exe, " with ", psm_file) system(paste("wine", pelmo_exe, psm_file), ignore.stdout = TRUE) # Copy the results to the original run directory |