R/abstract-erase.R

In krzjoa/sponge: Keep Your Environment Clean

.abstract_erase <- function(filtering.function = NULL, list.function = ls, pattern = NULL,
                                    envir = as.environment(-1), verbose = FALSE){

  if (is.null(pattern))
    objects <- list.function(envir = envir)
  else
    objects <- list.function(envir = envir, pattern = pattern)

  if (!is.null(filtering.function))
    objects <- Filter(filtering.function, objects)

  if (verbose)
    print(sprintf("Removed objects: %s", paste(objects, collapse = ", ")))

  rm(list = objects, envir = envir)
}