R/doubledeepms__create_dir.R

In lehner-lab/doubledeepms: Analysis scripts to reproduce the figures and results from doubleDeepPCA manuscript

#' doubledeepms__create_dir
#'
#' Create results folder for analysis script plots and saved objects.
#'
#' @param doubledeepms_dir directory path string (required)
#' @param execute whether or not the system command will be executed (required)
#' @param message message string (optional, default: NULL i.e. no message displayed)
#' @param overwrite_dir delete directory if already exists (optional, default: TRUE)
#'
#' @return Nothing
#' @export
doubledeepms__create_dir <- function(
  doubledeepms_dir, 
  execute = TRUE, 
  message = NULL, 
  overwrite_dir = TRUE){
  if(!execute){
    return()
  }
  if(!is.null(message)){
    message(paste("\n\n\n*******", message, "*******\n\n\n"))
  }
  if(dir.exists(doubledeepms_dir) & overwrite_dir){
    unlink(doubledeepms_dir, recursive = TRUE)
  }
  dir.create(doubledeepms_dir, showWarnings = FALSE)
  return(doubledeepms_dir)
}