R/squelette_analyse.R

In jomuller/vvs: Analyse des fichiers VisualValoSej

#' Créer un squelette pour l'analyse
#'
#' Copie tous les fichiers Rmarkdown (*rmd*) nécessaires et sous dossiers dans
#' le dossier cible
#'
#' @param chemin_cible Chemin vers le dossier cible. Par défaut le répertoire courant
#' @param nom Nom du nouveau dossier
#' @param dossiers_annexes Si TRUE, créé les dossiers annexes raw_data et produced_data
#' @export
#' @return Retourne la valeur du chemin cible
squelette_analyse <- function(chemin_cible = ".",
                              nom = "analyse_vvs_2017",
                              dossiers_annexes = TRUE) {
  new_dir_path <- file.path(chemin_cible, nom)
  # Créer le nouveau dossier
  dir.create(new_dir_path)

  # Chemin des rmds
  rmds_dir_path <- system.file("rmd", package = "vvs")

  file.copy(from = rmds_dir_path, to = new_dir_path, recursive = TRUE)

  # Créer les dossiers annexes
  dir.create(file.path(new_dir_path, 'raw_data'))
  dir.create(file.path(new_dir_path, 'produced_data'))

  new_dir_path
}