feat: abcd_demo and loanbook_demo gain (FAKE!!!) LEIs

[jdhoffa]

Relates to RMI-PACTA/r2dii.match#460
Closes #349

Note, with the new dev join_id functionality or match_name, this now works nicely:

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)

match_name(
  loanbook_demo,
  abcd_demo,
  join_id = c(lei_direct_loantaker = "lei")
) |> 
  filter(
  source == "id joined"
)
#> Warning: Some `sector_classification_direct_loantaker` are unknown:
#> NA
#> Some `sector_classification_direct_loantaker` are unknown:
#> NA
#> # A tibble: 117 × 28
#>    id_loan id_direct_loantaker name_direct_loantaker      id_intermediate_pare…¹
#>    <chr>   <chr>               <chr>                      <chr>                 
#>  1 L3      C292                Rowe-Rowe                  IP5                   
#>  2 L6      C304                Kassulke-Kassulke          <NA>                  
#>  3 L11     C309                Donnelly and Sons          <NA>                  
#>  4 L12     C298                Longo-Longo s.r.l.         <NA>                  
#>  5 L13     C297                Ladeck                     <NA>                  
#>  6 L14     C296                Gallo e figli              <NA>                  
#>  7 L15     C295                Silvestri, Silvestri e Si… <NA>                  
#>  8 L18     C284                Mariani, Mariani e Marian… <NA>                  
#>  9 L21     C286                Gallo Group                <NA>                  
#> 10 L23     C283                Bahringer-Bahringer        <NA>                  
#> # ℹ 107 more rows
#> # ℹ abbreviated name: ¹​id_intermediate_parent_1
#> # ℹ 24 more variables: name_intermediate_parent_1 <chr>,
#> #   id_ultimate_parent <chr>, name_ultimate_parent <chr>,
#> #   loan_size_outstanding <dbl>, loan_size_outstanding_currency <chr>,
#> #   loan_size_credit_limit <dbl>, loan_size_credit_limit_currency <chr>,
#> #   sector_classification_system <chr>, …

^{Created on 2024-03-14 with reprex v2.1.0}