R/save_filename.R

In guiboucher/INESSS-inesss: INESSS

#' Nom fichier
#'
#' Terminaison du fichier sauvegardé. Le nom des fichiers se termine toujours par la date de création.
#'
#' @param dir Répertoire et nom du fichier. Exemple : "Dossier1/Dossier2/NomDuFichier" (sans extension).
#' @param ext Par défaut `rds`. Indique le type de fichier sauvegardé.
#'
#' @return "dir_Sys.Date().ext"
#' @export
#'
#' @examples
#' save_filename("Dossier1/Dossier2/NomDuFichier")
#' save_filename("Dossier1/Dossier2/NomDuFichier", ext = "txt")
save_filename <- function(dir, ext = "rds"){
  return(paste0(dir,"_",Sys.Date(),".",ext))
}