R/detachPkg.R

In nfparsons/nlop: A New Look at an Old Puzzle Repository

#' Detach All Packages function
#' 
#' This function unloads all loaded packages from R.
#' @param
#' @keywords
#' @export
#' @examples
#' detachPkg()

detachPkg <- function() {
  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)
#    print(paste("package ", package, " detached", sep = ""))
  }
}