Update scenario used (#325)

* Update scenario used * Update defaults * document --------- Co-authored-by: Jackson Hoffart <[email protected]>
RMI-PACTA · May 28, 2024 · b61c49d · b61c49d
1 parent 2d3f1ca
commit b61c49d
Show file tree

Hide file tree

Showing 19 changed files with 26 additions and 23 deletions.
diff --git a/R/prep_alignment_table.R b/R/prep_alignment_table.R
@@ -19,7 +19,7 @@
 prep_alignment_table <- function(results_portfolio,
                                  peers_results_aggregated,
                                  asset_class = c("equity", "bonds"),
-                                 scenario_source = "GECO2021") {
+                                 scenario_source = "WEO2023") {
   if (is.null(results_portfolio)) {
     data_out <- use_toy_data("alignment_table") %>% filter(asset_class == .env$asset_class)
   } else {

diff --git a/R/prep_exposures_scorecard.R b/R/prep_exposures_scorecard.R
@@ -14,7 +14,7 @@
 #' @return data.frame
 #' @export
 prep_exposures_scorecard <- function(results_portfolio,
-                                     scenario_selected = "1.5C-Unif") {
+                                     scenario_selected = "NZE") {
   if (is.null(results_portfolio)) {
     data_out <- use_toy_data("exposures_scorecard")
   } else {

diff --git a/R/prep_fossil_bars.R b/R/prep_fossil_bars.R
@@ -20,7 +20,7 @@
 prep_fossil_bars <- function(results_portfolio,
                              peers_results_aggregated,
                              indices_results_portfolio,
-                             scenario_selected = "1.5C-Unif") {
+                             scenario_selected = "NZE") {
   if (is.null(results_portfolio)) {
     data_out <- use_toy_data("fossil_bars")
   } else {

diff --git a/R/prep_green_brown_bars.R b/R/prep_green_brown_bars.R
@@ -13,7 +13,7 @@
 #' @return data.frame
 #' @export
 prep_green_brown_bars <- function(results_portfolio,
-                                  scenario_selected = "1.5C-Unif") {
+                                  scenario_selected = "NZE") {
   if (is.null(results_portfolio)) {
     data_out <- use_toy_data("green_brown_bars")
   } else {

diff --git a/R/prep_scatter.R b/R/prep_scatter.R
@@ -14,8 +14,8 @@ prep_scatter <- function(results_portfolio,
                          peers_results_aggregated,
                          peers_results_individual,
                          indices_results_portfolio,
-                         scenario_source = "GECO2021",
-                         scenario_selected = "1.5C-Unif",
+                         scenario_source = "WEO2023",
+                         scenario_selected = "NZE",
                          asset_class = c("equity", "bonds")) {
   if (is.null(results_portfolio)) {
     data_out <- use_toy_data("scatter") %>%

diff --git a/R/prep_scores.R b/R/prep_scores.R
@@ -19,7 +19,7 @@
 prep_scores <- function(results_portfolio,
                         peers_results_aggregated,
                         asset_class = c("equity", "bonds"),
-                        scenario_source = "GECO2021") {
+                        scenario_source = "WEO2023") {
   if (is.null(results_portfolio)) {
     data_out <- use_toy_data("scores") %>% filter(asset_class == .env$asset_class)
   } else {
@@ -31,7 +31,7 @@ prep_scores <- function(results_portfolio,
       scenario_source = scenario_source
     )
 
-    portfolio_data_asset <- results_portfolio %>% 
+    portfolio_data_asset <- results_portfolio %>%
       filter(asset_class == .env$asset_class)
     if (nrow(portfolio_data_asset) > 0) {
       # infer start_year

diff --git a/R/prep_scores_scorecard.R b/R/prep_scores_scorecard.R
@@ -15,7 +15,7 @@
 #' @return data.frame
 #' @export
 prep_scores_scorecard <- function(results_portfolio,
-                                  scenario_source = "GECO2021") {
+                                  scenario_source = "WEO2023") {
   if (is.null(results_portfolio)) {
     data_out <- use_toy_data("scores") %>% filter(
       .data$scope == "portfolio",

diff --git a/R/render_executive_summary.R b/R/render_executive_summary.R
@@ -30,8 +30,8 @@ render_executive_summary <- function(data,
                                      portfolio_name,
                                      peer_group,
                                      total_portfolio,
-                                     scenario_source = "GECO2021",
-                                     scenario_selected = "1.5C-Unif",
+                                     scenario_source = "WEO2023",
+                                     scenario_selected = "NZE",
                                      currency_exchange_value,
                                      log_dir) {
   render(

diff --git a/data-raw/scenario_thresholds.R b/data-raw/scenario_thresholds.R
@@ -6,7 +6,10 @@ scenario_thresholds <- tibble::tribble(
   "GECO2021",          "CurPol",      "low",
   "GECO2023",            "1.5C",     "high",
   "GECO2023",         "NDC-LTS",      "mid",
-  "GECO2023",       "Reference",      "low"
+  "GECO2023",       "Reference",      "low",
+   "WEO2023",             "NZE",     "high",
+   "WEO2023",             "APS",      "mid",
+   "WEO2023",           "STEPS",      "low"
 )
 # styler: on
 

diff --git a/data/scenario_thresholds.rda b/data/scenario_thresholds.rda
diff --git a/man/prep_alignment_table.Rd b/man/prep_alignment_table.Rd
diff --git a/man/prep_exposures_scorecard.Rd b/man/prep_exposures_scorecard.Rd
diff --git a/man/prep_fossil_bars.Rd b/man/prep_fossil_bars.Rd
diff --git a/man/prep_green_brown_bars.Rd b/man/prep_green_brown_bars.Rd
diff --git a/man/prep_scatter.Rd b/man/prep_scatter.Rd
diff --git a/man/prep_scores.Rd b/man/prep_scores.Rd
diff --git a/man/prep_scores_scorecard.Rd b/man/prep_scores_scorecard.Rd
diff --git a/man/render_executive_summary.Rd b/man/render_executive_summary.Rd
diff --git a/man/scenario_thresholds.Rd b/man/scenario_thresholds.Rd