From a6c2eb7ecb672e737563709d1f563ec4198d4eea Mon Sep 17 00:00:00 2001
From: Marianna Rottoli <rottoli@pik-potsdam.de>
Date: Tue, 25 Feb 2020 12:20:17 +0100
Subject: [PATCH] Bugfix demand loaded from gdx file.

---
 scripts/iterative/EDGE_transport.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scripts/iterative/EDGE_transport.R b/scripts/iterative/EDGE_transport.R
index 50fd672..1a7f4d3 100644
--- a/scripts/iterative/EDGE_transport.R
+++ b/scripts/iterative/EDGE_transport.R
@@ -90,9 +90,9 @@ price_nonmot = inputdata$price_nonmot
 average_prices = FALSE
 
 
-ES_demand = readREMINDdemand(gdx, REMIND2ISO_MAPPING, EDGE2teESmap, REMINDyears)
+ES_demand_all = readREMINDdemand(gdx, REMIND2ISO_MAPPING, EDGE2teESmap, REMINDyears)
 ## select from total demand only the passenger sm
-ES_demand = ES_demand[sector == "trn_pass",]
+ES_demand = ES_demand_all[sector == "trn_pass",]
 
 
 
@@ -207,7 +207,7 @@ shares_int_dem <- shares_intensity_and_demand(
   REMINDyears=REMINDyears,
   scenario=scenario,
   REMIND2ISO_MAPPING=REMIND2ISO_MAPPING,
-  demand_input = if (opt$reporting) ES_demand)
+  demand_input = if (opt$reporting) ES_demand_all)
 
 demByTech <- shares_int_dem[["demand"]] ##in [-]
 intensity <- shares_int_dem[["demandI"]] ##in million pkm/EJ
-- 
GitLab