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.
# Development version from GitHub
# install.packages("devtools")
devtools::install_github("JMPivette/evavelo")
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:
categorie_corrige
id_section_origine
et id_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> 33318
Il est possible de décomposer tous les traitements effectués par
process_evavelo()
étape par étape:
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)
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.............
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, 38A46
La fonction evavelo::app_run()
permet d’utiliser le package via une
interface web:
Le package eva-scan
permet aussi de créer une classification
hiérarchique des compteurs à partir de données de comptages
automatiques. Cette classification est disponible dans l’interface Web.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.