Merge pull request #91 from RMI-PACTA/90-rm-code-level

replace code_level with nchar

R/functions_prep_project.R

@@ -253,7 +253,7 @@ sample_raw_loanbook_from_abcd <- function(abcd = NULL,
   sample_sector_codes <- r2dii.data::nace_classification %>%
     dplyr::filter(.data$borderline == FALSE) %>%
     dplyr::group_by(.data$sector) %>%
-    dplyr::slice_max(.data$code_level, n = 1) %>%
+    dplyr::slice_max(nchar(.data$code), n = 1) %>%
     dplyr::slice_head(n = 1) %>%
     dplyr::ungroup() %>%
     dplyr::select("sector", "code") %>%