From 39189e5d0681390643592f22eb8a647816d96a5e Mon Sep 17 00:00:00 2001
From: MonikaFu <monika.furdyna@gmail.com>
Date: Fri, 27 Sep 2024 16:49:11 +0200
Subject: [PATCH] Add code calculating emissions pies

---
 main.R | 36 ++++++++++++++++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

diff --git a/main.R b/main.R
index 8a0bf9a..b6d877a 100644
--- a/main.R
+++ b/main.R
@@ -52,6 +52,7 @@ scen_geo_levels <- unlist(manifest$params$analysis$scenarioGeographiesList)
 # load results from input directory --------------------------------------------
 
 audit_file <- readRDS(file.path(input_dir, "audit_file.rds"))
+emissions <- readRDS(file.path(input_dir, "emissions.rds"))
 equity_results_portfolio <- readRDS(file.path(input_dir, "Equity_results_portfolio.rds"))
 bonds_results_portfolio <- readRDS(file.path(input_dir, "Bonds_results_portfolio.rds"))
 
@@ -104,6 +105,13 @@ audit_file <-
     portfolio_name = portfolio_name
   )
 
+emissions <-
+  emissions %>%
+  mutate(
+    investor_name = investor_name,
+    portfolio_name = portfolio_name
+  )
+
 equity_results_portfolio <-
   equity_results_portfolio %>%
   mutate(
@@ -146,6 +154,32 @@ audit_file %>%
   jsonlite::write_json(path = file.path(output_dir, "data_value_pie_bonds.json"))
 
 
+# data_emissions_equity.json ---------------------------------------------------
+
+emissions %>%
+  pacta.portfolio.report:::prep_emissions_pie(
+    asset_type = "Equity",
+    investor_name = investor_name,
+    portfolio_name = portfolio_name,
+    pacta_sectors = pacta_sectors
+  ) %>%
+  pacta.portfolio.report:::translate_df_contents("data_emissions_pie_equity", dictionary) %>%
+  jsonlite::write_json(path = file.path(output_dir, "data_emissions_pie_equity.json"))
+
+
+# data_emissions_bonds.json ----------------------------------------------------
+
+emissions %>%
+  pacta.portfolio.report:::prep_emissions_pie(
+    asset_type = "Bonds",
+    investor_name = investor_name,
+    portfolio_name = portfolio_name,
+    pacta_sectors = pacta_sectors
+  ) %>%
+  pacta.portfolio.report:::translate_df_contents("data_emissions_pie_bonds", dictionary) %>%
+  jsonlite::write_json(path = file.path(output_dir, "data_emissions_pie_bonds.json"))
+
+
 # data_value_pie_equity.json ---------------------------------------------------
 
 audit_file %>%
@@ -158,8 +192,6 @@ audit_file %>%
   ) %>%
   pacta.portfolio.report:::translate_df_contents("data_value_pie_equity", dictionary) %>%
   jsonlite::write_json(path = file.path(output_dir, "data_value_pie_equity.json"))
-
-
 # data_techmix.json ------------------------------------------------------------
 
 pacta.portfolio.report:::prep_techexposure(