From b306dcea044623ac3ac382fdb2e59dc4369beacb Mon Sep 17 00:00:00 2001
From: Alois Dirnaichner <alodi@directbox.com>
Date: Wed, 19 Feb 2020 16:58:37 +0100
Subject: [PATCH] Adapt EDGE_transport script to changed calling signature of
edgeTrpLib, see b6f2a2c6.
---
scripts/iterative/EDGE_transport.R | 16 +++++++++++++---
1 file changed, 13 insertions(+), 3 deletions(-)
diff --git a/scripts/iterative/EDGE_transport.R b/scripts/iterative/EDGE_transport.R
index 2f7ebe8..c732a20 100644
--- a/scripts/iterative/EDGE_transport.R
+++ b/scripts/iterative/EDGE_transport.R
@@ -18,12 +18,14 @@ library(moinput)
## use cached input data for speed purpose
setConfig(forcecache=T)
+data_folder <- "EDGE-T"
+
mapspath <- function(fname){
file.path("../../modules/35_transport/edge_esm/input", fname)
}
datapath <- function(fname){
- file.path("input_EDGE", fname)
+ file.path(data_folder, fname)
}
REMINDpath <- function(fname){
@@ -76,9 +78,16 @@ EDGE2teESmap <- fread(mapspath("mapping_EDGE_REMIND_transport_categories.csv"))
## input data loading
-input_path = paste0("../../modules/35_transport/edge_esm/input/")
+input_folder = paste0("../../modules/35_transport/edge_esm/input/")
+
+if (length(list.files(path = data_folder, pattern = "RDS")) < 8) {
+ createRDS(input_folder, data_folder,
+ SSP_scenario = scenario,
+ EDGE_scenario = EDGE_scenario)
+}
+inputdata <- loadInputData(data_folder)
+
-inputdata = createRDS(input_path, SSP_scenario = scenario, EDGE_scenario = EDGE_scenario)
vot_data = inputdata$vot_data
sw_data = inputdata$sw_data
inco_data = inputdata$inco_data
@@ -121,6 +130,7 @@ REMIND_prices <- merge_prices(
intensity_data = int_dat,
nonfuel_costs = nonfuel_costs)
+
## save prices
## read last iteration count
keys <- c("iso", "year", "technology", "vehicle_type")
--
GitLab