diff --git a/start.R b/start.R index 83935687190c5e313da17ee0128d3551ddd3832f..950c87c746c41d3f1f11626b7bdf94542f555f05 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,])