Nothing
#' @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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.