EDGE-T Validation Output - Fix

Created by: Loisel

• fixes the EDGE-T (edge_esm module) validation generation. Validation PDF can be generated by using output.R. Functionality was broken due to recent changes wrt the reporting facilities to be run on the compute nodes.
• EDGE-T is now ran once again in the output phase of REMIND, generating data to be used for validation and reporting.
• Changes to the EDGE_transport.R script infered changes to calling signatures in edgeTrpLib library, so this has to be updated as well.
• MIF-wise reporting is not yet updated, this will come later.

scripts/iterative/EDGE_transport.R

@@ -200,7 +200,7 @@ mj_km_data = vintages[["mj_km_data"]]
 EDGE2CESmap <- fread(mapspath("mapping_CESnodes_EDGE.csv"))
 
 
-shares_intensity_demand <- shares_intensity_and_demand(
+shares_int_dem <- shares_intensity_and_demand(
   logit_shares=shares,
   MJ_km_base=mj_km_data,
   EDGE2CESmap=EDGE2CESmap,
@@ -209,9 +209,24 @@ shares_intensity_demand <- shares_intensity_and_demand(
   REMIND2ISO_MAPPING=REMIND2ISO_MAPPING,
   demand_input = if (opt$reporting) ES_demand)
 
-demByTech <- shares_intensity_demand[["demand"]] ##in [-]
-intensity <- shares_intensity_demand[["demandI"]] ##in million pkm/EJ
-norm_demand <- shares_intensity_demand$demandF_plot_pkm ## total demand is 1, required for costs
+demByTech <- shares_int_dem[["demand"]] ##in [-]
+intensity <- shares_int_dem[["demandI"]] ##in million pkm/EJ
+norm_demand <- shares_int_dem[["demandF_plot_pkm"]] ## total demand is 1, required for costs
+
+
+if (opt$reporting) {
+  saveRDS(vintages[["vintcomp"]], file = datapath("vintcomp.RDS"))
+  saveRDS(vintages[["newcomp"]], file = datapath("newcomp.RDS"))
+  saveRDS(shares, file = datapath("shares.RDS"))
+  saveRDS(logit_data$EF_shares, file = datapath("EF_shares.RDS"))
+  saveRDS(logit_data$mj_km_data, file = datapath("mj_km_data.RDS"))
+  saveRDS(logit_data$inconv_cost, file=datapath("inco_costs.RDS"))
+  saveRDS(shares_int_dem$demandF_plot_EJ,
+          file=datapath("demandF_plot_EJ.RDS"))
+  saveRDS(shares_int_dem$demandF_plot_pkm,
+          datapath("demandF_plot_pkm.RDS"))
+  saveRDS(logit_data$annual_sales, file = datapath("annual_sales.RDS"))
+}
 
 demand_BEV=calc_num_vehicles(
   norm_dem_BEV = norm_demand[