R/ns-hooks.R

In diveR: Easily Install and Load Interactive Data Visualization Tools

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()
}

Try the diveR package in your browser