R/mkdirs.R

In HenrikBengtsson/RCmdCheckTools: Methods for Running and Troubleshooting R Package Checks

mkdirs <- function(path) {
  # Nothing todo?
  if (isTRUE(file.info(path)$isdir)) {
    return(TRUE);
  }
  dir.create(path, recursive=TRUE);
  # Sanity check
  stopifnot(isTRUE(file.info(path)$isdir));
  return(TRUE);
} # mkdirs()