R/verify_dir_exists.R

In uva-bi-sdad/dc.utils: Data Commons Utility Functions

#' Verify directory exists (if not, create)
#'
#' @param full_path Path to directory.
#' @export
#' @examples
#' verify_dir_exists("~/missingfolder")
#' Creates folder named "missingfolder" in your home directory
verify_dir_exists <- function(full_path, recursive = TRUE) {
    if (!file.exists(full_path)) {
        dir.create(path = full_path, recursive = recursive)
        print(sprintf("%s created", full_path))
    }
    else (warning(sprintf("%s already exists", full_path)))
}