R/create_project.R

In Alik-V/heor: HEOR tools

#' Create template project directory
#'
#' This function creates a prject folder directory in the preferred HEOR folder format
#'
#' @examples
#' create_project(path = "P:/AZ/Hyperkalaemia/HEORXXX")
#'
#' current_path <- getwd()
#' create_project(current_path)
#' @family misc
#' @export

create_project <- function(root) {
  folders <- c(
    "/Data",
    "/Script",
    "/Script/Functions",
    "/Output",
    "/Output/Plots",
    "/Output/Data"
  )

  for (i in 1:length(folders)) {
    dir.create(paste0(root, folders[i]))
  }

  output_data <<- file.path(root, "Output/Data")
  output_plots <<- file.path(root, "Output/Plots")


}