R/MakeDirs.R

In Enpeterson/outputsim: Output Simulation Results

# get_dirs.R
#'
#'
#' @param runname
#' @param WD
#'
#' @return The ouput directory where output files will be saved.
#' @export
#'
#' @examples
#' MakeDirs(runname = "testfoldername", WD = getwd())
#'

MakeDirs <- function(runname, WD){

output.dir <<- paste(WD, "Output/", runname, "/", sep = "")
dir.create(output.dir,  showWarnings = FALSE)
fig.dir <<- paste(getwd(), "/Fig/", sep="")
dir.create(fig.dir, showWarnings = FALSE)
}