fix: call SWAT executable file in unix OS platform

tamnva · Feb 27, 2024 · b3aaf2d · b3aaf2d
1 parent 440b1f3
commit b3aaf2d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/runSWATpar.R b/R/runSWATpar.R
@@ -186,7 +186,11 @@ runSWATSequential <- function(coreNumber,
     exeFile <- strsplit(swatExe, split="\\\\")[[1]]
     if(!file.exists(exeFile[length(exeFile)])) file.copy(swatExe, toDir)
 
-    system(trimws(exeFile[length(exeFile)]))
+    if(.Platform$OS.type == "unix") {
+      system(paste0("./", trimws(exeFile[length(exeFile)])))
+    } else {
+      system(trimws(exeFile[length(exeFile)]))
+    }
 
     # Check first run
     if ((nrow(subParameterSet) > 1) & (i > 1)){