bug: explore failing pkgdown build

[jdhoffa]

         unsure about the pkgdown issue though. It seems to be new

Originally posted by @jacobvjk in #469 (comment)

[cjyetman]

https://github.com/RMI-PACTA/r2dii.match/actions/runs/8612954095/job/23603258245?pr=469#step:6:98

Quitting from lines  at lines 79-93 [unnamed-chunk-7] (matching-coverage.Rmd)
--------------------------------------------------------------------------------
Error in `map()`:
ℹ In index: 2.
Caused by error in `render_rmarkdown()`:
! Failed to render RMarkdown
Caused by error:
! in callr subprocess.
Caused by error:
! Can't join `x$sector_classification_direct_loantaker` with
  `y$sector_classification_direct_loantaker` due to incompatible types.
ℹ `x$sector_classification_direct_loantaker` is a <double>.
ℹ `y$sector_classification_direct_loantaker` is a <character>.
Backtrace:
     ▆
  1. ├─left_join(loanbook_with_sectors, matched) %>% ...
  2. ├─dplyr::mutate(...)
  3. ├─dplyr::left_join(loanbook_with_sectors, matched)
  4. ├─dplyr:::left_join.data.frame(loanbook_with_sectors, matched)
  5. │ └─dplyr:::join_mutate(...)
  6. │   └─dplyr:::join_cast_common(x_key, y_key, vars, error_call = error_call)
  7. │     ├─rlang::try_fetch(...)
  8. │     │ └─base::withCallingHandlers(...)
  9. │     └─vctrs::vec_ptype2(x, y, x_arg = "", y_arg = "", call = error_call)
 10. ├─vctrs (local) `<fn>`()
 11. │ └─vctrs::vec_default_ptype2(...)
 12. │   ├─base::withRestarts(...)
 13. │   │ └─base (local) withOneRestart(expr, restarts[[1L]])
 14. │   │   └─base (local) doWithOneRestart(return(expr), restart)
 15. │   └─vctrs::stop_incompatible_type(...)
 16. │     └─vctrs:::stop_incompatible(...)
 17. │       └─vctrs:::stop_vctrs(...)
 18. │         └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
 19. │           └─rlang:::signal_abort(cnd, .file)
 20. │             └─base::signalCondition(cnd)
 21. └─rlang (local) `<fn>`(`<vctrs__2>`)
 22.   └─handlers[[1L]](cnd)
 23.     └─dplyr:::rethrow_error_join_incompatible_type(cnd, vars, error_call)
 24.       └─dplyr:::stop_join(...)
 25.         └─dplyr:::stop_dplyr(...)
 26.           └─rlang::abort(...)

r2dii.match/vignettes/matching-coverage.Rmd

Lines 78 to 93 in f7b9a29

	``` {r}
	coverage <- left_join(loanbook_with_sectors, matched) %>%
	mutate(
	loan_size_outstanding = as.numeric(loan_size_outstanding),
	loan_size_credit_limit = as.numeric(loan_size_credit_limit),
	matched = case_when(
	score == 1 ~ "Matched",
	is.na(score) ~ "Not Matched",
	TRUE ~ "Not Mached"
	),
	sector = case_when(
	borderline == TRUE & matched == "Not Matched" ~ "not in scope",
	TRUE ~ sector
	)
	)
	```