R/ns-hooks.R

Defines functions is_attached .onAttach

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

  diveR_attach()
}

is_attached <- function(x) {
  paste0("package:", x) %in% search()
}
great-northern-diver/diveR documentation built on Oct. 3, 2021, 8:24 p.m.