From 1c7275ad41c072e71c4191cdb4d0729697e27a2d Mon Sep 17 00:00:00 2001
From: Johannes Koch <jokoch@pik-potsdam.de>
Date: Mon, 20 Jul 2020 11:54:35 +0200
Subject: [PATCH] :bug: Fix bug in function configure_cfg
A bad regex pattern was being used to remove files ending with ".gdx".
---
start.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/start.R b/start.R
index 8393568..950c87c 100755
--- a/start.R
+++ b/start.R
@@ -161,8 +161,8 @@ configure_cfg <- function(icfg, iscen, iscenarios, isettings) {
input_ref.gdx = isettings[iscen, "path_gdx_ref"],
input_bau.gdx = isettings[iscen, "path_gdx_bau"])
- # Remove potential elements that contain ".gdx" and append gdxlist
- icfg$files2export$start <- .setgdxcopy(".gdx", icfg$files2export$start, gdxlist)
+ # Remove potential elements that end with ".gdx" and append gdxlist
+ icfg$files2export$start <- .setgdxcopy("\\.gdx$", icfg$files2export$start, gdxlist)
# add gdx information for subsequent runs
icfg$subsequentruns <- rownames(isettings[isettings$path_gdx_ref == iscen & !is.na(isettings$path_gdx_ref) & isettings$start == 1,])
--
GitLab