Adapt helper-fake_lbk() and all tests to play nicely with updated `…

…NACE` codes (#449)
RMI-PACTA · Feb 20, 2024 · 96d01ec · 96d01ec
1 parent 8081439
commit 96d01ec
Show file tree

Hide file tree

Showing 9 changed files with 44 additions and 21 deletions.
diff --git a/R/match_name.R b/R/match_name.R
@@ -79,15 +79,15 @@
 #' your_classifications <- tibble(
 #'   sector = "power",
 #'   borderline = FALSE,
-#'   code = "3511",
+#'   code = "D35.11",
 #'   code_system = "XYZ"
 #' )
 #'
 #' restore <- options(r2dii.match.sector_classifications = your_classifications)
 #'
 #' loanbook <- tibble(
 #'   sector_classification_system = "XYZ",
-#'   sector_classification_direct_loantaker = "3511",
+#'   sector_classification_direct_loantaker = "D35.11",
 #'   id_ultimate_parent = "UP15",
 #'   name_ultimate_parent = "Alpine Knits India Pvt. Limited",
 #'   id_direct_loantaker = "C294",

diff --git a/tests/testthat/_snaps/add_sector_and_borderline.md b/tests/testthat/_snaps/add_sector_and_borderline.md
@@ -86,9 +86,9 @@
           "value": ["Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code", "Code"]
         },
         {
-          "type": "double",
+          "type": "character",
           "attributes": {},
-          "value": [3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 3011, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 2351, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 241, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610, 2910, 2910, 5110, 5110, 5110, 5110, 3030, 2910, 5200, 2410]
+          "value": ["D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "D35.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C30.11", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C29.1", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C23.51", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "C24.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "B6.1", "C29.10", "C29.10", "H51.1", "H51.1", "H51.1", "H51.1", "C30.3", "C29.10", "B5.2", "C24.1"]
         },
         {
           "type": "character",

diff --git a/tests/testthat/_snaps/helper-fake_lbk.md b/tests/testthat/_snaps/helper-fake_lbk.md
@@ -3,20 +3,20 @@
     {
       "type": "list",
       "attributes": {
-        "names": {
+        "class": {
           "type": "character",
           "attributes": {},
-          "value": ["sector_classification_system", "id_ultimate_parent", "name_ultimate_parent", "id_direct_loantaker", "name_direct_loantaker", "sector_classification_direct_loantaker"]
+          "value": ["tbl_df", "tbl", "data.frame"]
         },
         "row.names": {
           "type": "integer",
           "attributes": {},
           "value": [1]
         },
-        "class": {
+        "names": {
           "type": "character",
           "attributes": {},
-          "value": ["tbl_df", "tbl", "data.frame"]
+          "value": ["sector_classification_system", "id_ultimate_parent", "name_ultimate_parent", "id_direct_loantaker", "name_direct_loantaker", "sector_classification_direct_loantaker"]
         }
       },
       "value": [
@@ -46,9 +46,9 @@
           "value": ["Yuamen Xinneng Thermal Power Co Ltd"]
         },
         {
-          "type": "double",
+          "type": "character",
           "attributes": {},
-          "value": [3511]
+          "value": ["D35.11"]
         }
       ]
     }