From 719ebec494b497b20b9b347df1b9b449948d50e9 Mon Sep 17 00:00:00 2001
From: Marianna Rottoli <marianna.rottoli@mail.polimi.it>
Date: Mon, 27 Apr 2020 18:58:02 +0200
Subject: [PATCH] Bugfix in call transport realization.
---
scripts/start/prepare_and_run.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/scripts/start/prepare_and_run.R b/scripts/start/prepare_and_run.R
index 01d00ac..0e8a79e 100644
--- a/scripts/start/prepare_and_run.R
+++ b/scripts/start/prepare_and_run.R
@@ -228,7 +228,7 @@ prepare <- function() {
#}
# select demand pathway for transportation: options are conv (conventional demand pathway) and wise (wiseways, limited demand)
- if(transport == "edge_esm"){
+ if(cfg$gms$transport == "edge_esm"){
if(grepl("Wise", cfg$gms$cm_EDGEtr_scen)){
demTrsp = "wise"
} else {
@@ -244,7 +244,7 @@ prepare <- function() {
"POP_", cfg$gms$cm_POPscen, "-",
"GDP_", cfg$gms$cm_GDPscen, "-",
"Kap_", cfg$gms$capitalMarket, "-",
- ifelse(transport == "edge_esm", paste0( "demTrsp_", demTrsp, "-"), ""),
+ ifelse(cfg$gms$transport == "edge_esm", paste0( "demTrsp_", demTrsp, "-"), ""),
"Reg_", substr(regionscode(cfg$regionmapping),1,10))
# write name of corresponding CES file to datainput.gms
--
GitLab