R/utils-path.R

Defines functions check_dir_exists dir_exists

dir_exists <- function(d) {
  de <- file.info(d)$isdir
  ifelse(is.na(de), FALSE, de)
}


check_dir_exists <- function(dir){
  if(!dir_exists(dir))
    stop(sprintf("The directory %s does not exist",dir))
}
rethomics/damr documentation built on April 12, 2024, 12:29 p.m.