257 minimal demo data lbk and abcd

[jacobvjk]

closes #257
closes #372

• abcd_demo drops columns abcd_timestamp (not needed for calculation) and country_of_domicile (not part of the P4B format ABCD)
• loanbook_demo drops columns id_intermediate_parent_1, name_intermediate_parent_1,, sector_classification_input_type, fi_type, flag_project_finance_loan, and name_project, none of which are needed for the calculation
• data_dictionary is adjusted accordingly and drops the mention of these variables
• snaps are updated

NOTE:

• we may want to keep the variables that were removed from the demo data sets in the data_dictionary. If so, test expectations need to be adjusted

The new demo data sets generate the following demo output

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(r2dii.data)
library(r2dii.match)
library(r2dii.analysis)
library(r2dii.plot)

names(loanbook_demo)
#>  [1] "id_loan"                               
#>  [2] "id_direct_loantaker"                   
#>  [3] "name_direct_loantaker"                 
#>  [4] "id_ultimate_parent"                    
#>  [5] "name_ultimate_parent"                  
#>  [6] "loan_size_outstanding"                 
#>  [7] "loan_size_outstanding_currency"        
#>  [8] "loan_size_credit_limit"                
#>  [9] "loan_size_credit_limit_currency"       
#> [10] "sector_classification_system"          
#> [11] "sector_classification_direct_loantaker"
#> [12] "lei_direct_loantaker"                  
#> [13] "isin_direct_loantaker"
# "lei_direct_loantaker" is optional, but may be used as a `join_id`
# "isin_direct_loantaker" is optional, but may be used as a `join_id`

names(abcd_demo)
#>  [1] "company_id"           "name_company"         "lei"                 
#>  [4] "sector"               "technology"           "production_unit"     
#>  [7] "year"                 "production"           "emission_factor"     
#> [10] "plant_location"       "is_ultimate_owner"    "emission_factor_unit"

matched <- loanbook_demo |> 
  match_name(abcd_demo) |> 
  prioritize()

matched |> 
  target_market_share(abcd_demo, scenario_demo_2020, region_isos_demo) |> 
  filter(sector == "power", region == "global", technology == "renewablescap") |> 
  prep_trajectory() |> 
  plot_trajectory()

matched |> 
  target_sda(
    abcd_demo, 
    co2_intensity_scenario_demo, 
    region_isos = region_isos_demo
  ) |> 
  filter(sector == "cement", region == "global") |> 
  prep_emission_intensity() |> 
  plot_emission_intensity()
#> Warning: Removing rows in abcd where `emission_factor` is NA

^{Created on 2024-04-18 with reprex v2.1.0}

[jdhoffa]

Just noting that:
loanbook_demo drops columns id_intermediate_parent_1, name_intermediate_parent_1 MIGHT affect some downstream vignettes in r2dii.match... not certain atm, but make sure to be cautious there.

Otherwise LGTM

[jacobvjk]

to feel safe about this, I would appreciate you checking the r2dii.match vignettes as well @jdhoffa in case you find time for that

[jdhoffa]

Testing now!

[jdhoffa]

Looks great!
I saw no issues when testing against this PR: RMI-PACTA/r2dii.match#473