R/rm_dt.R

In ghowoo/Wu: This is a collection of utility functions for statistical analysis and reporting.

#' A remove data function
#'
#' This function allows you to remove all objects in the environment except functions
#' @param
#' @keywords remove data
#' @export

rm_dt <- function(){
    lst <- ls(envir = parent.frame())
    lst=lst[sapply(lst, function(x) {max(class(get(x)) %notin% c("function")) == 1})]
    rm(list=lst, envir = parent.frame())
}