R/zzz.R

In ChuckFinley/goldbogenlab: Internal package for the Goldbogen Lab at Hopkins Marine Station

#' @importFrom dplyr %>%

.onLoad <- function(libname, pkgname) {
  if (!file.exists(config_path())) {
    message("No config file found, creating blank one. Use set_cats_path to update config file.")
    write_config(list())
  } else {
    config <- read_config()
    if (!("cats_path" %in% names(config)) ||
        !file.exists(config$cats_path)) {
      message("CATS not found. Use set_cats_path to update config file.")
    }
  }
}