R/build_path.R

In Nicktz/rmsfuns: Quickly View Data Frames in 'Excel', Build Folder Paths and Create Date Vectors

#' @title build_path
#' @description build_path builds the entire folder FilePath provided. If the FilePath does not exist, it builds it without error. It is effectively an extension to the base function dir.create.
#' @param FilePath A character string with the target folder path. This can be a vector of multiple paths, e.g.: FilePath <- paste0( "C:/TestFolder/", c("Subfolder1","Subfolder2"))
#' @param Silent True by default, if set to FALSE it shows the address of the folder just created. This is, however, saved if used as: Path <- build_path(FilePath), making the message largely redundant.
#' @return Path address just built.
#' @importFrom purrr map map_int
#' @importFrom magrittr %>%
#' @examples
#' \dontrun{
#' PathLoc <- tempdir()
#' Path <- build_path(PathLoc)
#' Pathmultiplecreate <- build_path(file.path(PathLoc, c("XXX", "YYY")))
#' }
#' @export

build_path <- function(FilePath, Silent = TRUE) {

  PathBuilder <- function(FP) {
    if (!file.exists(FP)) {
      PathBuilder(dirname(FP))
      dir.create(FP, showWarnings = FALSE)
    }
  }

  X <- FilePath[!file.path(FilePath) %>% map_int(dir.exists)] %>% map(PathBuilder)

  if(Silent == FALSE) {
    message(paste0(FilePath, " successfully created"))
  }

  FilePath
}