R/attach.R

In madlogos/ases: ASES Toolkit Family

core <- c("asesgeo", "asesmso", "asesrpt", "asestio", "asesvis", "aseskit")

core_unloaded <- function() {
  search <- paste0("package:", core)
  core[!search %in% search()]
}

core_loaded <- function(){
  search <- paste0("package:", core)
  core[search %in% search()]
}

# Attach/detach the package from the same package library it was
# loaded from before.
same_library <- function(pkg, action=c("library", "detach")) {
  action <- match.arg(action)
  loc <- if (pkg %in% loadedNamespaces()) dirname(getNamespaceInfo(pkg, "path"))
  if (action == "library"){
    do.call(
      "library",
      list(pkg, lib.loc = loc, character.only = TRUE, warn.conflicts = FALSE)
    )
  }else{
    do.call(
      "detach",
      list(paste("package:", pkg, sep=""), unload = TRUE, character.only = TRUE,
           force = TRUE)
    )
  }
}

attach_ases <- function() {
  to_load <- core_unloaded()
  if (length(to_load) == 0)
    return(invisible())

  msg(
    cli::rule(
      left = crayon::bold("Attaching packages"),
      right = paste0("ases ", package_version("ases"))
    ),
    startup = TRUE
  )

  versions <- vapply(to_load, package_version, character(1))
  packages <- paste0(
    crayon::green(cli::symbol$tick), " ", crayon::blue(format(to_load)), " ",
    crayon::col_align(versions, max(crayon::col_nchar(versions)))
  )

  if (length(packages) %% 2 == 1) {
    packages <- append(packages, "")
  }
  col1 <- seq_len(length(packages) / 2)
  info <- paste0(packages[col1], "     ", packages[-col1])

  msg(paste(info, collapse = "\n"), startup = TRUE)

  suppressPackageStartupMessages(
    lapply(to_load, same_library)
  )

  invisible()
}


detach_ases <- function(){
  to_unload <- core_loaded()
  if (length(to_unload) == 0)
    return(invisible())

  msg(
    cli::rule(
      left = crayon::bold("Detaching packages"),
      right = paste0("ases ", package_version("ases"))
    ),
    startup = TRUE
  )

  versions <- vapply(to_unload, package_version, character(1))
  packages <- paste0(
    crayon::green(cli::symbol$tick), " ", crayon::blue(format(to_unload)), " ",
    crayon::col_align(versions, max(crayon::col_nchar(versions)))
  )

  if (length(packages) %% 2 == 1) {
    packages <- append(packages, "")
  }
  col1 <- seq_len(length(packages) / 2)
  info <- paste0(packages[col1], "     ", packages[-col1])

  msg(paste(info, collapse = "\n"), startup = TRUE)

  suppressPackageStartupMessages(
    lapply(to_unload, same_library, action = "detach")
  )

  invisible()
}

package_version <- function(x) {
  version <- as.character(unclass(utils::packageVersion(x))[[1]])

  if (length(version) > 3) {
    version[4:length(version)] <- crayon::red(as.character(version[4:length(version)]))
  }
  paste0(version, collapse = ".")
}