mirror of
https://github.com/cutterkom/generativeart.git
synced 2026-06-16 12:32:05 +02:00
Katharina Brunner
20 lines
1.0 KiB
R
20 lines
1.0 KiB
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)
|
|
}
|