Résumé
Le package evavelo applique des traitements automatiques sur les fichiers d’enquêtes liés à la méthode EVA-VELO (Méthode nationale pour l’évaluation des retombées des véloroutes) développée par Vélo et Territoires
Ce projet est composé de fonctions de traitements de fichier mais aussi d’une interface web.
Installation
# Development version from GitHub
# install.packages("devtools")
devtools::install_github("JMPivette/evavelo")Traitement d’enquête Eva-Velo
La function principale process_evavelo() permet de traiter un fichier d’enquête xlsx avec la méthode Eva-Vélo. Cette function va notamment:
- Vérifier l’intégrité du fichier
- Remplir le champ
categorie_corrige - Calculer les différentes distances par rapport au point d’enquête
- Trouver les codes COG des communes de résidence et d’hébergement
- Remplir les champs
id_section_origineetid_section_dest
xlsx_path <- system.file("example-data/02_simplified.xlsx", package = "evavelo")
## Process File
eva_data_processed <- evavelo::process_evavelo(xlsx_path)
## Read outputs
lapply(eva_data_processed, head)
#> $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>
#>
#> $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
#> 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
#> 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
#> 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
#> 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> 33318Traitement étapes par étapes
Il est possible de décomposer tous les traitements effectués par process_evavelo() étape par étape:
Lecture du fichier
La fonction read_evavelo() permet de lire un fichier xlsx et de récupérer un objet avec toutes les informations intéressantes pour le traitement.
eva_data <- evavelo::read_evavelo(xlsx_path)Géocodage des villes
La fonction geocode_evavelo() permet de modifier l’objet en géocodant les noms de communes
eva_data_geocoded <- evavelo::geocode_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)
#> 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 (35000)
#> 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.............Process
La fonction process_evavelo() que nous avons déjà utilisé sur un fichier Excel peut aussi être utilisée directement sur un objet précédemment géocodé avec geocode_evavelo()
eva_data_processed <- evavelo::process_evavelo(eva_data_geocoded)
#> 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, 38A46Interface Web
La fonction evavelo::app_run() permet d’utiliser le package via une interface web:
UI Screenshot
