From 3c82d26206e2f2e74600acd71a49c70eaed555c4 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 27 Jan 2017 08:17:08 +0100 Subject: Also test run with metabolites --- R/PELMO_runs.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'R') 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 -- cgit v1.2.1