Skip to content
Snippets Groups Projects

EDGE-T Validation Output - Fix

Merged Jerome Hilaire requested to merge github/fork/MariannaR/reporting_fix into develop
1 file
+ 18
8
Compare changes
  • Side-by-side
  • Inline
require(data.table)
library(optparse)
require(gdx)
require(gdxdt)
opt_parser = OptionParser(
require(edgeTrpLib)
description = "Coupled version of EDGE-T, to be run within a REMIND output folder.",
require(rmndt)
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
## use cached input data for speed purpose
require(moinput)
setConfig(forcecache=T)
setConfig(forcecache=T)
mapspath <- function(fname){
mapspath <- function(fname){
file.path("../../modules/35_transport/edge_esm/input", fname)
file.path("../../modules/35_transport/edge_esm/input", fname)
}
}
@@ -56,7 +66,7 @@ if (EDGE_scenario == "Conservative_liquids") {
@@ -56,7 +66,7 @@ if (EDGE_scenario == "Conservative_liquids") {
endogeff <<- EDGEscenarios[options== "endogeff", switch]
endogeff <<- EDGEscenarios[options== "endogeff", switch]
enhancedtech <<- EDGEscenarios[options== "enhancedtech", switch]
enhancedtech <<- EDGEscenarios[options== "enhancedtech", switch]
rebates_febates <<- EDGEscenarios[options== "rebates_febates", switch] ##NB THEY ARE ONLY IN PSI! ONLY WORKING IN EUROPE
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]
smartlifestyle <<- EDGEscenarios[options== "smartlifestyle", switch]
Loading