From 159d5ad0bd0d6c2a5a78e47d17b06dbcfd3a8f30 Mon Sep 17 00:00:00 2001 From: orichters Date: Tue, 12 Sep 2023 17:07:48 +0200 Subject: [PATCH] in plot_compare_iterations correctly find mifs --- scripts/output/comparison/plot_compare_iterations.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/output/comparison/plot_compare_iterations.R b/scripts/output/comparison/plot_compare_iterations.R index f671d34a2..d8ec80f9b 100644 --- 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