add a coal and a steel comp to loanbook_demo

data-raw/loanbook_demo.R

@@ -4,6 +4,7 @@ library(usethis)
 source(file.path("data-raw", "utils.R"))
 
 # Source: https://github.com/2DegreesInvesting/r2dii.dataraw/pull/4
+# added a coal and a steel company to cover all sectors in demo loan book (#315)
 path <- file.path("data-raw", "loanbook_demo.csv")
 loanbook_demo <- readr::read_csv(
   path,

data-raw/loanbook_demo.csv

@@ -319,4 +319,6 @@ L317,C4,Airbaltic,NA,NA,UP8,Airbaltic,300050,EUR,300050,EUR,NACE,Code,5110,Loan,
 L318,C5,Airblue,NA,NA,UP9,Airblue,300051,EUR,300051,EUR,NACE,Code,5110,Loan,No,NA,NA,NA
 L319,C6,Airborne Of Sweden,NA,NA,UP10,Airborne Of Sweden,300052,EUR,300052,EUR,NACE,Code,5110,Loan,No,NA,NA,NA
 L320,C7,Airbus Transport International,NA,NA,UP11,Airbus Transport International,300053,EUR,300053,EUR,NACE,Code,3030,Loan,No,NA,NA,NA
-L321,C320,Zotye Auto HDV,NA,NA,UP320,Zotye Auto HDV,350053,EUR,350053,EUR,NACE,Code,2910,Loan,No,NA,NA,NA
+L321,C320,Zotye Auto HDV,NA,NA,UP320,Zotye Auto HDV,350053,EUR,350053,EUR,NACE,Code,2910,Loan,No,NA,NA,NA
+L322,C321,glencore plc,NA,NA,UP321,glencore plc,350054,EUR,350056,EUR,NACE,Code,5200,Loan,No,NA,NA,NA
+L323,C322,jsw group,NA,NA,UP322,jsw group,350055,EUR,350057,EUR,NACE,Code,2410,Loan,No,NA,NA,NA