Merge pull request remindmodel#1388 from orichters/cs2

don't let cs2 fail if outputdirs are not unique
Renato-Rodrigues · Sep 4, 2023 · 658efef · 658efef
2 parents 77b1f5a + b23128a
commit 658efef
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/scripts/cs2/run_compareScenarios2.R b/scripts/cs2/run_compareScenarios2.R
@@ -31,7 +31,8 @@ run_compareScenarios2 <- function(
   # folder.
   system(paste0("mkdir ", outFileName)) 
   outDir <- normalizePath(outFileName, mustWork = TRUE)
-
+
+  outputDirs <- unique(normalizePath(outputDirs, mustWork = TRUE))
   mifPath <- getMifScenPath(outputDirs, mustWork = TRUE)
   histPath <- getMifHistPath(outputDirs[1], mustWork = TRUE)
   scenConfigPath <- getCfgScenPath(outputDirs, mustWork = TRUE)