ComDef: total investment (extraction + generation)

R/functions.R

@@ -3724,6 +3724,31 @@ get_resource_investment <- function(GCAM_version = "v7.0") {
 }
 
 
+#' get_total_investment
+#'
+#' Calculate investment of resource production + extraction.
+#' @param GCAM_version Main GCAM compatible version: 'v7.0' (default), 'v7.1', or 'v6.0'.
+#' @keywords internal investment process
+#' @return `total_investment_clean` global variable
+#' @importFrom magrittr %>%
+#' @export
+get_total_investment <- function(GCAM_version = "v7.0") {
+  total_investment_clean <- NULL
+
+  total_investment_clean <- rbind(
+    resource_investment_clean,
+    elec_investment_clean
+  ) %>%
+    dplyr::group_by('scenario','region','year') %>%
+    dplyr::mutate(value = sum(value)) %>%
+    dplyr::ungroup() %>%
+    dplyr::mutate(var = 'Investment|Energy Supply') %>%
+    dplyr::select(dplyr::all_of(gcamreport::long_columns))
+
+  total_investment_clean <<- total_investment_clean
+}
+
+
 #########################################################################
 #                        BIND TO TEMPLATE FUNCTIONS                     #
 #########################################################################

inst/extdata/mappings/GCAM7.1/variables_functions_mapping.csv

@@ -63,6 +63,7 @@ elec_capacity_add_clean;get_elec_capacity_add;elec_capacity_add;;
 elec_investment_clean;get_elec_investment;elec_capacity_add;;
 transmission_invest_clean;get_transmission_invest;elec_capacity_add_clean;;
 resource_investment_clean;get_resource_investment;;;resource production by tech and vintage,regional primary energy prices
+total_investment_clean;get_total_investment;elec_investment_clean,resource_investment_clean;;
 iron_steel_imports;get_iron_steel_imports;;;regional iron and steel sources
 iron_steel_exports;get_iron_steel_exports;;;traded iron and steel
 iron_steel_clean;get_iron_steel_clean;iron_steel_imports,iron_steel_exports;;