R/cree_repertoires.R

In ggwinter/gk4indic: Transforme tableau geokit ECLN pour import dans outil indicateurs

#' on cree les repertoires 2_data, 4_resultats dans le nouveau dossier s ils n'existent pas
#'
#' @param dossier le repertoire où est le projet
#'
#' @return cree les sous-repertoires
#' @importFrom here here
#' @importFrom cli bg_green
#' @importFrom cli col_black
#' @importFrom purrr walk
#' @export
cree_repertoires <- function(dossier = here::here()) {
  repertoires <- c("1_scripts", "2_data", "3_tables",
                   "4_resultats", "5_publications")
  purrr::walk(repertoires, ~if (dir.exists(here::here(dossier,
                                                      .x)) == FALSE)
    dir.create(here::here(dossier, .x)))
  return(cat(cli::bg_green(cli::col_black('Les repertoires ont \u00e9t\u00e9 cr\u00e9\u00e9s\n'))))

}