overwrite = TRUE si force

Author: py-b

R/telechargerFichier.R

@@ -41,7 +41,7 @@ telechargerFichier <- function(donnees, date=NULL, telDir=getOption("doremifasol
 
     if (!file.exists(nomFichier) || force) {
       if (!curl::has_internet()) stop("aucune connexion Internet")
-      res <- try(httr::GET(caract$lien, httr::write_disk(nomFichier), httr::progress()))
+      res <- try(httr::GET(caract$lien, httr::write_disk(nomFichier, overwrite = TRUE), httr::progress()))
       if (res$status_code == 200) dl <- 0
       if (tools::md5sum(nomFichier) != caract$md5) {
         warning("Fichier sur insee.fr modifi\u00e9 ou corruption lors du t\u00e9l\u00e9chargement.")