Import des données
# Full data
#xlsx_path <- system.file("example-data/01_all.xlsx", package = "evavelo")
# Corrected data
#xlsx_path <- here::here("inst", "example-data", "01a_all_correct.xlsx")
# Reduced size data
xlsx_path <- system.file("example-data/02_simplified.xlsx", package = "evavelo")
#xlsx_path <- here::here("inst", "example-data", "02_simplified.xlsx")
eva_data <- evavelo::read_evavelo(xlsx_path)Si l’object eva_data n’a pas été géocodé au préalable, process_evavelo() va géocoder les villes avant de faire le traitement. Un log du géocodage apparaitra dans les messages.
La fonction retourne une liste de valeurs créées ou modifiées.
result <- evavelo::process_evavelo(eva_data)
#> Vérification des noms de communes
#> ---------------------------------
#> ...Vérification de table_communes.............
#> Les communes suivantes n'existent plus et doivent etre remplacées par les communes nouvelles:
#> Hiers-Brouage(17189) -> Marennes-Hiers-Brouage(17219)
#> Marennes(17219) -> Marennes-Hiers-Brouage(17219)
#> Locmaria-Berrien(29129) -> Poullaouen(29227)
#> Les Forges(56059) -> Forges de Lanouée(56102)
#> Château-d'Olonne(85060) -> Les Sables-d'Olonne(85194)
#> Olonne-sur-Mer(85166) -> Les Sables-d'Olonne(85194)
#> Impossible de reconnaître les communes suivantes:
#> Lanouée(56102)
#>
#> ...Vérification de ville_res.............
#> Les villes suivantes ont ete ignorées. Propositions de corrections:
#> Angoulins-sur-Mer (17890) -> Angoulins (17690)
#> Angoulins-sur-Mer (17691) -> Angoulins (17690)
#> Angoulins-sur-Mer (17960) -> Angoulins (17690)
#> Angoulins-sur-Mer (17690) -> Angoulins (17690)
#> Arboras (34151) -> Arboras (34150)
#> Avallon (89201) -> Avallon (89200)
#> Avanton (86171) -> Avanton (86170)
#> Cachan (94231) -> Cachan (94230)
#> Chatelaillon (17340) -> Châtelaillon-Plage (17340)
#> Fouras (17451) -> Fouras (17450)
#> Le Mans (72700) -> Le Mans (72100)
#> Plouénan (39420) -> Plouénan (29420)
#> Rennes (35160) -> Rennes (35700)
#> Rivedoux (17940) -> Rivedoux-Plage (17940)
#> Rivedoux-Plage (17590) -> Rivedoux-Plage (17940)
#> Saint-Germain-du-Puy (18391) -> Saint-Germain-du-Puy (18390)
#> Saint-Joseph (97980) -> Saint-Joseph (97480)
#> Saint-Pol-de-Léon (22250) -> Saint-Pol-de-Léon (29250)
#> Interprétation de noms de communes étrangères:
#> Chine : Benjing -> Beijing
#> Villes inconnues:
#> Noor mout (Pays-Bas)
#>
#> ...Vérification de ville_heb.............
#> Impossible de trouver les communes suivantes:
#> Camping-municipal-henvic
#> Chaix
#> Île de Ré
#> Interpretation de communes mal nommées:
#> Chatelaillon -> Châtelaillon-Plage (17094)
#> Saint-Pol -> Saint-Pol-de-Léon (29259)
#>
#> ...Vérification de iti_depart_itineraire.............
#> Impossible de trouver les communes suivantes:
#> Uméa
#>
#> ...Vérification de iti_arrivee_itineraire.............
#> Impossible de trouver les communes suivantes:
#> Dortmund
#>
#> ...Vérification de nom_site_enq.............
#> Calcul des distances...
#> Les villes de départ d'itinéraire suivantes sont trop éloignées de l'itinéraire (>30km):
#> St Brieuc (38A23)
#>
#> Les villes d'arrivée d'itinéraire suivantes sont trop éloignées de l'itinéraire (>30km):
#> Paris (38A34)
#>
#> Liste des régions de l'itinéraire à partir de tables_communes:
#> Bretagne, Nouvelle-Aquitaine, Pays de la Loire
#>
#> Correction de catégories pour 17 questionnaires ....
#> Il n'a pas été possible de corriger les catégories de 3 questionnaire(s).
#> La catégorie du déclarant sera utilisée:
#> 141A35, 38A45, 38A46
purrr::map(result, ~ head(.x,10))
#> $comptages_man_post_traitements
#> id_quest categorie_visuelle_cycliste_corrige
#> 1 <NA> <NA>
#> 2 <NA> Loisir
#> 3 <NA> <NA>
#> 4 <NA> Loisir
#> 5 106aA1 Sportif
#> 6 <NA> <NA>
#> 7 106aA2 Utilitaire
#> 8 <NA> <NA>
#> 9 <NA> <NA>
#> 10 106aA3 Sportif
#>
#> $enquetes_post_traitement
#> id_quest categorie_corrige distance_domicile_enq distance_dom_enq_reelle
#> 1 106aA1 Sportif 0.5241257 0.7297089
#> 2 106aA2 Utilitaire NA NA
#> 3 106aA3 Sportif 5.0566412 6.7403990
#> 4 106aA4 Loisir 0.5241257 0.7297089
#> 5 106aA5 Sportif NA NA
#> 6 106aA6 Loisir 156.9983854 172.7165825
#> 7 106aA7 Loisir NA NA
#> 8 106aA8-1 Loisir 8.4458138 10.9513746
#> 9 106aA8-2 Loisir 8.4458138 10.9513746
#> 10 106aA10 Sportif 0.5241257 0.7297089
#> distance_dom_enq_reelle_regions distance_dom_enq_reelle_france
#> 1 0.7297089 0
#> 2 NA NA
#> 3 6.7403990 0
#> 4 0.7297089 0
#> 5 NA NA
#> 6 172.7165825 0
#> 7 NA NA
#> 8 10.9513746 0
#> 9 10.9513746 0
#> 10 0.7297089 0
#> distance_dom_enq_reelle_etranger distance_heb_enq distance_heb_enq_reelle
#> 1 0 NA NA
#> 2 NA NA NA
#> 3 0 NA NA
#> 4 0 NA NA
#> 5 NA NA NA
#> 6 0 NA NA
#> 7 NA NA NA
#> 8 0 NA NA
#> 9 0 NA NA
#> 10 0 NA NA
#> iti_dep_iti_valide id_section_origine iti_arr_iti_valide id_section_dest
#> 1 <NA> NA <NA> NA
#> 2 <NA> NA <NA> NA
#> 3 <NA> NA <NA> NA
#> 4 <NA> NA <NA> NA
#> 5 <NA> NA <NA> NA
#> 6 <NA> NA <NA> NA
#> 7 <NA> NA <NA> NA
#> 8 <NA> NA <NA> NA
#> 9 <NA> NA <NA> NA
#> 10 <NA> NA <NA> NA
#> ville_heb_cog_lau ville_res_cog_lau
#> 1 <NA> 17300
#> 2 <NA> <NA>
#> 3 <NA> 17028
#> 4 <NA> 17300
#> 5 <NA> <NA>
#> 6 <NA> 33318
#> 7 <NA> <NA>
#> 8 <NA> 17391
#> 9 <NA> 17391
#> 10 <NA> 17300