New option allows reserved loanbook columns

R/match_name.R

@@ -94,7 +94,7 @@ match_name_impl <- function(loanbook,
   old_groups <- dplyr::groups(loanbook)
   loanbook <- ungroup(loanbook)
 
-  abort_reserved_column(loanbook)
+  if (!allow_reserved_columns()) abort_reserved_column(loanbook)
   loanbook_rowid <- tibble::rowid_to_column(loanbook)
 
   prep_lbk <- restructure_loanbook(loanbook_rowid, overwrite = overwrite)
@@ -159,6 +159,10 @@ match_name_impl <- function(loanbook,
   matched
 }
 
+allow_reserved_columns <- function() {
+  isTRUE(getOption("r2dii.match.allow_reserved_columns"))
+}
+
 abort_reserved_column <- function(data) {
   reserved_chr <- c("alias", "rowid", "sector")
   is_reserved <- names(data) %in% reserved_chr

tests/testthat/test-match_name.R

@@ -587,3 +587,15 @@ test_that("matches any case of ald$name_company, but preserves original case", {
   # The original uppercase is preserved
   expect_equal(upp$name_ald, "ALPINE KNITS")
 })
+
+test_that("with relevant options allows loanbook with reserved columns", {
+  restore <- options(r2dii.match.allow_reserved_columns = TRUE)
+  on.exit(options(restore), add = TRUE)
+
+  # Must add both `sector` and `borderline` -- match_name errors with just one
+  lbk <- mutate(fake_lbk(), sector = "a", borderline = FALSE)
+  expect_no_error(
+    # Don't warn if found no match
+    suppressWarnings(match_name(lbk, fake_ald()))
+  )
+})