Merge pull request #1408 from orichters/plotiter

in plot_compare_iterations correctly find mifs
remindmodel · Sep 13, 2023 · c634467 · c634467
2 parents 712dec7 + 159d5ad
commit c634467
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/scripts/output/comparison/plot_compare_iterations.R b/scripts/output/comparison/plot_compare_iterations.R
@@ -62,8 +62,8 @@ plot_iterations <- function(runname) {
   # ---- Read REMIND reportings for all scenarios ----
 
   message("Searching for REMIND_generic_*.mif files for ", runname)
-  report_path <- Sys.glob(paste0(runname,"-rem-*/REMIND_generic_*.mif"))
-  report_path <- report_path[!grepl("with|adj",report_path)]
+  report_path <- Sys.glob(paste0(runname,"-rem-*/REMIND_generic_", runname, "-rem-*.mif"))
+  report_path <- grep(paste0(runname, "-rem-[0-9]+\\.mif$"), report_path, value = TRUE)
 
   message("Reading ", length(report_path), " REMIND reports.")
   reports <- NULL