R/util_make_subdir.R

In jeksterslabds/jeksterslabRutils: Package Utility Functions

#' Make Subdirectories
#'
#' Makes subdirectories recursively.
#'
#' For example,
#' if `dir = "/home/jek"`
#' and `subdir = "subdir"` [`util_make_subdir()`]
#' creates `/home/jek/subdir`.
#' If `dir = "/home/jek"`
#' and `subdir = c("subdir1", "subdir2")` [`util_make_subdir()`]
#' creates `/home/jek/subdir1/subdir2`.
#' If `dir` and `subdir` are not provided [`util_make_subdir()`]
#' creates a subdirectory with a random name
#' (using [`util_rand_str()`]) in the current directory.
#'
#' @author Ivan Jacob Agaloos Pesigan
#' @param dir Character string.
#' Directory.
#' @param subdir Character string or vector.
#' A single subdirectory of a vector of subdirectories.
#' Subdirectory or subdirectories.
#' @export
util_make_subdir <- function(dir = NULL,
                             subdir = NULL) {
  if (is.null(dir)) {
    dir <- getwd()
  }
  if (is.null(subdir)) {
    subdir <- util_rand_str()
  }
  dir_subdir <- rep(x = NA, length = length(subdir))
  for (i in seq_along(subdir)) {
    dir_subdir[i] <- file.path(
      dir,
      subdir[i]
    )
    if (dir.exists(dir_subdir[i])) {
      warning(
        paste(
          dir_subdir[i],
          "already exists and will not be created."
        )
      )
    } else {
      dir.create(
        path = dir_subdir[i],
        recursive = TRUE
      )
    }
  }
  dir_subdir
}