corrige prenoms + URL page des décès (#75)

* Corrections sup sur PRENOM_
* Regenere rda pour PRENOM_
* URL differente pour DECES_2020
* petites améliorations
* corrige infos fichiers prénoms (tool::md5sum)

Co-authored-by: Pierre-Yves Berrard <[email protected]>

Author: ddotta

R/chargerDonnees.R

@@ -106,8 +106,8 @@ chargerDonnees <- function(telechargementFichier, vars = NULL, ...) {
   if (is.data.frame(res)) {
     class(res) <- c("insee_data_frame", class(res))
     attr_url <- sub("fichier/([0-9]+)/.+$", "\\1", telechargementFichier$lien)
-    if (telechargementFichier$collection == "GEOGRAPHIE") {
-      # url différente pour COG et aires urbaines
+    if (telechargementFichier$collection == "GEOGRAPHIE" || substr(telechargementFichier$nom, 1, 8) == "DECES_20") {
+      # url différente pour COG, aires urbaines et décès
       attr_url <- sub("/statistiques/", "/information/", attr_url)
     }
     attr(res, "source") <-

R/consulter.R

@@ -17,7 +17,9 @@ consulter <- function(donnees, date = NULL) {
 
   # construit l'url web à partir de l'url du fichier
   url <- sub("fichier/([0-9]+)/.+$", "\\1", caract$lien)
-  if (caract$collection == "GEOGRAPHIE") {
+  
+  # des exceptions sur les url web pour la collection GEOGRAPHIE et le fichier des personnes décédées
+  if (caract$collection == "GEOGRAPHIE" || substr(caract$nom, 1, 8) == "DECES_20") {
     url <- sub("/statistiques/", "/information/", url)
   }
 

R/sysdata.rda

@@ -165,7 +165,8 @@ telechargerFichier <- function(donnees, date=NULL, telDir=getOption("doremifasol
       fileArchive = fileArchive,
       type        = caract$type,
       argsImport  = argsImport,
-      collection  = caract$collection
+      collection  = caract$collection,
+      nom         = caract$nom
     )
   )
 

R/telechargerFichier.R

@@ -21329,32 +21329,32 @@
     {
         "nom": "PRENOM_NAT",
         "libelle": "Fichier des prénoms, France hors Mayotte",
-        "date_ref": "2019-01-01",
+        "date_ref": "2020-01-01",
         "collection": "ETAT_CIVIL",
         "lien": "https://www.insee.fr/fr/statistiques/fichier/2540004/nat2020_csv.zip",
         "type": "csv",
         "zip": true,
         "big_zip": false,
-        "fichier_donnees": "nat2019.csv",
+        "fichier_donnees": "nat2020.csv",
         "separateur": ";",
         "api_rest": false,
-        "md5": "dee96e38282a9f30ea1a862a1eafc9d8",
-        "size": 1946257
+        "md5": "9af0eb19bc09e99a5197ea569e915b37",
+        "size": 2443960
     },
     {
         "nom": "PRENOM_DEP",
         "libelle": "Fichier des prénoms par département",
-        "date_ref": "2019-01-01",
+        "date_ref": "2020-01-01",
         "collection": "ETAT_CIVIL",
         "lien": "https://www.insee.fr/fr/statistiques/fichier/2540004/dpt2020_csv.zip",
         "type": "csv",
         "zip": true,
         "big_zip": false,
-        "fichier_donnees": "dpt2019.csv",
+        "fichier_donnees": "dpt2020.csv",
         "separateur": ";",
         "api_rest": false,
-        "md5": "d19b7e455885961b65c153b6c02231a0",
-        "size": 10069596
+        "md5": "918842176bbeb6577964c285c502e2a8",
+        "size": 13402600
     },
     {
         "nom": "RP_LOGEMENT",