R/create_todays_directory.R

In YT100100/TodaFunc: Convenient R functions for myself

create_todays_directory <- function(
  dirname_vec, add_today_folder = TRUE,
  explanation = ''
) {

  # set directory names
  if (add_today_folder) {
    folder <- gsub('-', '', Sys.Date())
    if (explanation != '') {
      folder <- paste0(folder, '_', explanation)
    }
    dirname_vec <- c(dirname_vec, folder)
  }

  dirname_i <- NULL
  for (i in 1:length(dirname_vec)) {

    # create full path
    if (is.null(dirname_i)) {
      dirname_i <- dirname_vec[[i]]
    } else {
      dirname_i <- file.path(dirname_i, dirname_vec[[i]])
    }

    # create directory
    dir.create(dirname_i, showWarnings = FALSE)

  }

  return(dirname_i)

}