R/zzz.R

In pacta.loanbook: Easily Install and Load PACTA for Banks Packages

Defines functions is_loading_for_tests is_attached .onAttach

.onAttach <- function(...) {
  if (!is_attached("conflicted") && !is_loading_for_tests()) {
    conflicts <- pacta_loanbook_conflicts()
    inform_startup(pacta_loanbook_conflict_message(conflicts))
  }

  packageStartupMessage(pacta_loanbook_logo())
}

is_attached <- function(x) {
  paste0("package:", x) %in% search()
}

is_loading_for_tests <- function() {
  !interactive() && identical(Sys.getenv("DEVTOOLS_LOAD"), "pacta.loanbook")
}

Try the pacta.loanbook package in your browser