ensureDirectory: Create Directory
In rappster/filesystr: Functionality for processing file system ressources

Description Usage Arguments Author(s) References See Also Examples

Creates directory/directories. Basically, an S4 interface to dir.create.

1	ensureDirectory(path, strict, ...)

`path`	Signature argument. Object containing directory information.
`strict`	`logical`. Should certain conditions trigger an error (`TRUE`) or simply result in a return value of `FALSE` (`FALSE`, default).
`...`	Further arguments to be passed to: `dir.create`.

Janko Thyson janko.thyson@rappster.de

https://github.com/Rappster/filesystr

ensureDirectory-character-method dir.create

## Not run: 

## Auxiliary functions //
.carefulCleanup <- function(x, pattern=basename(tempdir())) {
  out <- sapply(x, function(ii) {
    out <- NA
    if (grepl(pattern, ii)) {
      out <- unlink(ii, recursive=TRUE, force=TRUE)
    }        
    out
  })
  invisible(out)
}

## Example content //
path <- file.path(tempdir(), "ensureDirectory")
sapply(path, dir.create, recursive=TRUE, showWarnings=FALSE)

path <- file.path(path, letters[1:3])
ensureDirectory(path = path)

## If directory already exists //
ensureDirectory(path = path)

## Clean up //
.carefulCleanup(x = path)
  


## End(Not run)