R/zzz.R

Defines functions .onAttach is_attached

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

  crayon::num_colors(TRUE)
  evidentiaRy_attach()

  x <- evidentiaRy_conflicts()
  msg(evidentiaRy_conflict_message(x), startup = TRUE)
}

is_attached <- function(x) {
  paste0("package:", x) %in% search()
}
project-evident/evidentiaRy documentation built on May 23, 2019, 4:05 a.m.