use a safer method of extracting the filename from a path (#353)

RMI-PACTA · Dec 13, 2024 · fb99feb · fb99feb
1 parent e285309
commit fb99feb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/run_calculate_match_success_rate.R b/R/run_calculate_match_success_rate.R
@@ -75,8 +75,8 @@ run_calculate_match_success_rate <- function(config) {
 
   raw_lbk <- raw_lbk %>%
     dplyr::mutate(
-      group_id = gsub(glue::glue("{dir_loanbooks}/"), "", .data[["group_id"]]),
-      group_id = gsub(".csv", "", .data[["group_id"]])
+      group_id = basename(.data[["group_id"]]),
+      group_id = sub("[.]csv$", "", .data[["group_id"]])
     )
 
   ## load matched prioritized loan books----