use config for target year, not magic number (#182)

RMI-PACTA · Oct 30, 2024 · c319a90 · c319a90
1 parent c090b58
commit c319a90
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/plot_aggregate_loanbooks.R b/R/plot_aggregate_loanbooks.R
@@ -136,7 +136,7 @@ plot_aggregate_loanbooks <- function(config) {
       data_sankey_sector <- prep_sankey(
         company_aggregated_alignment_net,
         region = "global",
-        year = 2027,
+        year = start_year + time_frame_select,
         group_var = by_group,
         middle_node = "sector"
       )
@@ -177,7 +177,7 @@ plot_aggregate_loanbooks <- function(config) {
       data_sankey_company_sector <- prep_sankey(
         company_aggregated_alignment_net,
         region = "global",
-        year = 2027,
+        year = start_year + time_frame_select,
         group_var = by_group,
         middle_node = "name_abcd",
         middle_node2 = "sector"
@@ -214,7 +214,7 @@ plot_aggregate_loanbooks <- function(config) {
   }
 
   ### scatter plot alignment by exposure and sector comparison----
-  year_scatter_alignment_exposure <- 2027
+  year_scatter_alignment_exposure <- start_year + time_frame_select
   region_scatter_alignment_exposure <- region_select
   currency <- unique(company_aggregated_alignment_net[["loan_size_outstanding_currency"]])
   if (length(by_group) <= 1) {
@@ -269,7 +269,7 @@ plot_aggregate_loanbooks <- function(config) {
 
 
   ### scatter plot for group level comparison----
-  year_scatter <- 2027
+  year_scatter <- start_year + time_frame_select
   region_scatter <- region_select
   data_level_group <- "group_var"
   # automotive
@@ -405,7 +405,7 @@ plot_aggregate_loanbooks <- function(config) {
   # for all companies per group, not all companies across groups
 
   # company level, excluding outliers
-  year_scatter <- 2027
+  year_scatter <- start_year + time_frame_select
   region_scatter <- region_select
   data_level_company <- "company"