R/zzz.R

In NOAA-OWP/hydrofabric: Easily Install and Load 'hydrofabric' tools

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

.onAttach <- function(...) {
 
  needed <- core[!is_attached(core)]
  
  if (length(needed) == 0){ return() }
  
  crayon::num_colors(TRUE)
  hydrofabric_attach()
  
  if (!"package:conflicted" %in% search()) {
    x <- hydrofabric_conflicts()
    msg(hydrofabric_conflict_message(x), startup = TRUE)
  }
}

#' Hydrofabric Data Model
#' 
'hf_dm'