R/setup_directories.R

In samuelwaldman/random: Create Generative Art with R

#' Setup a directory structure for image creation
#'
#' I use a certain directory structure for image creation. Every image is saved under "img/everything/". I use the directory "img/handpicked/" for a selection of good images. Moreover I create a directory for the log file.
#' You only need to call this function one time.
#' @param img_path the path, where the images should be saved
#' @param img_subdir one subdirectory
#' @param img_subdir2 a second subdirectory
#' @param logfile_dir the log file directory
#' @return four dir within your working directory
#' @export
#' @examples
#' setup_directories("img/", "everything/", "handpicked/", "logfile/")

setup_directories <- function(img_path, img_subdir, img_subdir2, logfile_dir) {
  ifelse(!dir.exists(img_path), dir.create(img_path), NA)
  ifelse(!dir.exists(paste0(img_path, img_subdir)), dir.create(paste0(img_path, "/", img_subdir)), NA)
  ifelse(!dir.exists(paste0(img_path, img_subdir2)), dir.create(paste0(img_path, "/", img_subdir2)), NA)
  ifelse(!dir.exists(logfile_dir), dir.create(logfile_dir), NA)
}