knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(evavelo) library(magrittr) library(dplyr)
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) purrr::map(result, ~ head(.x,10))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.