R/depack.R

In nbarsch/pineium: pineium custom scrape package

#' depack
#'
#' detach all non-base packages
#' @param rpack TRUE or FALSE only detach the rpack() packages (default FALSE to detach all non-base packages, TRUE to ONLY detach rpack())
#' @export
depack <- function(rpack=FALSE) {
  basic.packages.blank <- c(
    "stats",
    "graphics",
    "grDevices",
    "utils",
    "datasets",
    "methods",
    "base"
  )
  basic.packages <- paste("package:", basic.packages.blank, sep = "")
  package.list <- search()[ifelse(unlist(gregexpr("package:", search())) == 1, TRUE, FALSE)]
  package.list <- setdiff(package.list, basic.packages)
  if (length(package.list) > 0) {
    for (package in package.list) {
      detach(package, character.only = TRUE)
    }
  }
}