data-raw/accords.R

In NicolasImberty/vin: Etude des vins

## code to prepare `accords` dataset goes here

# source des données https://www.data.gouv.fr/fr/datasets/accords-mets-et-vins/
accords <- as_tibble(data.table::fread("donnees/accords.csv"))

# on ne conserve que les mets et les vins
accords <- accords %>% 
  select(mets = "Nom du mets",
         vin = "Nom du vin")

usethis::use_data(accords)