fix: Use absolute path to OM if given

SwissTPH · May 16, 2024 · ff0d6a4 · ff0d6a4
1 parent 85117f3
commit ff0d6a4
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/R/simulation.R b/R/simulation.R
@@ -55,7 +55,14 @@ runSimulations <- function(scenarios = NULL, cmd = "openMalaria", dryRun = FALSE
     verbose <- NULL
   }
 
-  cmd <- ifelse(dryRun == TRUE, cmd, Sys.which(cmd))
+  if (startsWith(x = cmd, prefix = "/")) {
+    cmd <- cmd
+  } else if (startsWith(x = cmd, prefix = "C:/")) {
+    cmd <- cmd
+  } else {
+    cmd <- Sys.which(cmd)
+  }
+
   scenarios <- file.path(
     getCache(x = "scenariosDir"),
     if (is.null(scenarios)) {