R/seek_and_destroy.R

In rebordao/myrutils: My R Utils

#' Remove unwanted files/folders
#'
#' Remove those unwanted files/folders that were generated automatically.
#' For example, '.DS_Store' or '.wercker'.\cr
#' As a security mechanism, only hardcoded file/folder names can be deleted.
#' Also, the seek and destroy operation only applies to ~/.
#'
#' @param stuff_to_remove Is a vector with names of folders or files to remove.
#' Ex: c('.DS_Store', '.wercker')
#' @export
#'  
seek_and_destroy <- function(stuff_to_remove) {
  
  engine <- function(name) {
    # Only hardcoded file or folder names can be deleted
    stopifnot(name %in% c('.DS_Store', '.wercker'))
    
    system(
      sprintf("find %s -name %s -exec rm -vrf {} \\;", path.expand('~'), name))
  }
  
  sapply(stuff_to_remove, engine)
}