R/zzz.R

In madlogos/ases: ASES Toolkit Family

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

  crayon::num_colors(TRUE)
  attach_ases()

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

}


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

  crayon::num_colors(TRUE)
  detach_ases()

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


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