R/is_dir.R

Defines functions is_dir

is_dir <- function(apath) {
  all(
    file.exists(apath),
    all(dir.exists(dirname(apath))),
    length(apath) == 1,
    file.info(apath)[["isdir"]]
  )
}
c5sire/kmerize documentation built on June 7, 2020, 9:26 p.m.