R/zzz.R

In fpp2: Data for "Forecasting: Principles and Practice" (2nd Edition)

# Based on zzz.R from the tidyverse package

.onAttach <- function(...) {
  needed <- core[!is_attached(core)]
  if (length(needed) == 0) {
    return()
  }

  crayon::num_colors(TRUE)
  fpp2_attach()

  if (!"package:conflicted" %in% search()) {
    x <- fpp2_conflicts()
    msg(fpp2_conflict_message(x), startup = TRUE)
  }
}

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