include GDPMER into reporting

johannah-pik · Oct 18, 2024 · 83be410 · 83be410
1 parent 1bdcc46
commit 83be410
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/toolEdgeTransportSA.R b/R/toolEdgeTransportSA.R
@@ -235,8 +235,8 @@ toolEdgeTransportSA <- function(SSPscen,
     helpers = helpers
   )
   # not all data from inputdataRaw and inputdata is needed for the reporting
-  add <- append(inputDataRaw[!names(inputDataRaw) %in% c("GDPMER")],
-                      inputData[!names(inputData) %in% c("histESdemand", "GDPMER","GDPpcMER", "GDPpcPPP", "population")])
+  add <- append(inputDataRaw,
+                inputData[!names(inputData) %in% c("histESdemand", "GDPMER","GDPpcMER", "GDPpcPPP", "population")])
   outputRaw <- append(outputRaw, add)
 
   if (isAnalyticsReported) outputRaw <- append(outputRaw, list(endogenousCostsIterations = endogenousCostsIterations,