R/utils-filesystem.R

In dipsaus: A Dipping Sauce for Data Analysis and Visualizations

assert_file <- function(x) {
  if (file.exists(x)) {
    return(invisible())
  }
  cat2("File ", shQuote(x), " does not exist", level = 'FATAL')
}

assert_dir <- function(x) {
  if (dir.exists(x)) {
    return(invisible())
  }
  cat2("Path ", shQuote(x), " is not a directory", level = 'FATAL')
}

assert_file_scalar <- function(x, allow_decimal = FALSE) {
  assert_file(x)
  y <- readLines(x, n = 1, warn = FALSE)
  is_scalar <- FALSE
  if(allow_decimal){
    is_scalar <- str_detect(y, '^[0-9]*[.]{0,1}[0-9]*$') && str_detect(y, '[0-9]+')
  }else{
    is_scalar <- str_detect(y, '^[0-9]+$')
  }

  if( !is_scalar ){
    cat2('File ', shQuote(x), ' contains no ', ifelse(allow_decimal, 'number', 'integer'),
         ' of length 1', level = 'FATAL')
  }
  return(invisible())
}


dir_create <- function(x, showWarnings = FALSE, recursive = TRUE, check = TRUE) {
  if (!dir.exists(x)) {
    dir.create(x, showWarnings = showWarnings, recursive = recursive)
  }
  if (check && !dir.exists(x)) {
    cat2('Cannot create directory at ', shQuote(x), level = 'FATAL')
  }
  invisible(normalizePath(x))
}

file_create <- function(x, showWarnings = FALSE, recursive = TRUE) {
  if (!file.exists(x)) {
    dir <- dirname(x)
    if( recursive && !dir.exists(dir) ){
      dir_create(dir)
    }
    file.create(x, showWarnings = showWarnings)
  }
  invisible(normalizePath(x))
}

microtime <- function() {
  strftime(Sys.time(), "%Y-%m-%d %H:%M:%OS9", usetz = TRUE)
}


remove_empty_dir <- function(path, all.files = TRUE, recursive = FALSE, verbose = FALSE) {
  if(!dir.exists(path)) { return() }
  sub_files <- list.files(path = path, recursive = FALSE, all.files = all.files, include.dirs = TRUE, no.. = TRUE, full.names = TRUE)
  if( recursive ) {
    if(length(sub_files) > 0L) {
      sub_dirs <- sub_files[dir.exists(sub_files)]
      for(dir in sub_dirs) {
        Recall(dir, all.files = all.files, recursive = recursive)
      }
      sub_files <- list.files(path = path, recursive = FALSE, all.files = all.files, include.dirs = TRUE, no.. = TRUE, full.names = TRUE)
    }

  }
  if(!length(sub_files)) {
    if(verbose) {
      message("Removing empty folder: ", path)
    }
    unlink(path, recursive = TRUE, force = TRUE)
  }
}