R/utils-path.R

In damr: Interface to Drosophila Activity Monitor System Result Files

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))
}

Try the damr package in your browser