R/detachAllPackages.R

In zlfccnu/econophysics: Functions for econophysics

#'Function used to detach all the packages except basics pkgs
#'@return invisible
#'@export

detachAllPackages <- function() {
  
  basic.packages <- c("package:stats","package:graphics","package:grDevices","package:utils","package:datasets","package:methods","package:base")
  
  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, force=TRUE,character.only=TRUE)
  
}