From bb220ca50f45db1c8bad26b70a6c1dcc4f5b228c Mon Sep 17 00:00:00 2001
From: Alois Dirnaichner <alodi@directbox.com>
Date: Wed, 19 Feb 2020 14:15:11 +0100
Subject: [PATCH] Add a command line switch to the EDGE_Transport script to
save reporting files.
---
scripts/iterative/EDGE_transport.R | 26 ++++++++++++++++++--------
1 file changed, 18 insertions(+), 8 deletions(-)
diff --git a/scripts/iterative/EDGE_transport.R b/scripts/iterative/EDGE_transport.R
index 887e993..2f7ebe8 100644
--- a/scripts/iterative/EDGE_transport.R
+++ b/scripts/iterative/EDGE_transport.R
@@ -1,13 +1,23 @@
-require(data.table)
-require(gdx)
-require(gdxdt)
-require(edgeTrpLib)
-require(rmndt)
+library(optparse)
+
+opt_parser = OptionParser(
+ description = "Coupled version of EDGE-T, to be run within a REMIND output folder.",
+ option_list = list(
+ make_option(
+ "--reporting", action="store_true",
+ help="Store output files in subfolder EDGE-T")));
+opt = parse_args(opt_parser);
+
+library(data.table)
+library(gdx)
+library(gdxdt)
+library(edgeTrpLib)
+library(rmndt)
+library(moinput)
+
## use cached input data for speed purpose
-require(moinput)
setConfig(forcecache=T)
-
mapspath <- function(fname){
file.path("../../modules/35_transport/edge_esm/input", fname)
}
@@ -56,7 +66,7 @@ if (EDGE_scenario == "Conservative_liquids") {
endogeff <<- EDGEscenarios[options== "endogeff", switch]
enhancedtech <<- EDGEscenarios[options== "enhancedtech", switch]
rebates_febates <<- EDGEscenarios[options== "rebates_febates", switch] ##NB THEY ARE ONLY IN PSI! ONLY WORKING IN EUROPE
-savetmpinput <<- FALSE
+savetmpinput <<- opt$reporting
smartlifestyle <<- EDGEscenarios[options== "smartlifestyle", switch]
--
GitLab