R/except.R

In Ironholds/olivr: Oliver's personal R package

remove_except <- function(exceptions){
  files <- ls(globalenv())
  files <- files[!files %in% exceptions]
  rm(files, pos = globalenv())
  return(invisible())
}

subset_except <- function(df, exceptions){
  names <- colnames(df)
  to_keep <- names[!names %in% exceptions]
  if("data.table" %in% class(df)){
    
  } else {
    
  }
  return(df)
}