R/zzz.R

In pearsonplc/pearsonverse: A package which stores all pearson-related packages

.onAttach <- function(...) {
  # inst_needed <- core[!is_installed(core)]

  # pearsonverse_install()

  att_needed <- core[!is_attached(core)]
  if (length(att_needed) == 0)
    return()

  crayon::num_colors(TRUE)
  pearsonverse_attach()

}

# is_installed <- function(x) {
#   pkg_installed <- utils::installed.packages() %>%
#     as.data.frame() %>%
#     dplyr::filter(Package %in% core) %>%
#     dplyr::pull(Package) %>%
#     as.character()
#
#   x %in% pkg_installed
# }

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