check_missing_currency fails if currencies is not on search path

[AlexAxthelm]

pacta.portfolio.audit/R/check_missing_currency.R

Line 7 in d221800

!currency %in% currencies$currency ~ FALSE,

In this line, currencies object is referenced without definition or passing as argument to function.

Error in `mutate()`:
ℹ In argument: `has_currency = case_when(...)`.
Caused by error in `case_when()`:
! Failed to evaluate the left-hand side of formula 3.
Caused by error:
! object 'currencies' not found
Backtrace:
     ▆
  1. ├─workflow.pacta:::run_pacta()
  2. │ └─workflow.pacta:::run_audit(cfg_path)
  3. │   └─pacta.portfolio.audit::add_portfolio_flags(portfolio)
  4. │     └─pacta.portfolio.audit:::check_missing_currency(portfolio)
  5. │       └─portfolio_total %>% ...
  6. ├─dplyr::mutate(...)
  7. ├─dplyr:::mutate.data.frame(...)
  8. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
  9. │   ├─base::withCallingHandlers(...)
 10. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
 11. │     └─mask$eval_all_mutate(quo)
 12. │       └─dplyr (local) eval()
 13. ├─dplyr::case_when(...)
 14. │ └─dplyr:::case_formula_evaluate(...)
 15. │   ├─base::withCallingHandlers(...)
 16. │   └─rlang::eval_tidy(pair$lhs, env = default_env)
 17. ├─currency %in% currencies$currency
 18. └─base::.handleSimpleError(...)
 19.   └─dplyr (local) h(simpleError(msg, call))
 20.     └─rlang::abort(message, parent = cnd, call = error_call)
Execution halted