R/importe_ghs.R

In jomuller/vvs: Analyse des fichiers VisualValoSej

importe_nomenclature_ghs <- function(csv_ghs = "raw_data/ghs_pub.csv") {
  library(readr)
  ghs <- readr::read_csv2(
    file = 'raw_data/ghs_pub.csv',
    col_names = c('ghs', 'cmd' , 'mco', 'ghm', 'libelle',
                  'seuil_bas', 'seuil_haut', 'prix',
                  'exb_forfait', 'exb_journalier',
                  'exh_prix', 'date_effet'),
    col_types = cols(
      .default = col_character(),
      seuil_bas = col_number(),
      seuil_haut  = col_number(),
      prix  = col_number(),
      exb_forfait = col_number(),
      exb_journalier = col_number(),
      exh_prix  = col_number(),
      date_effet = col_date(format = '%d/%m/%Y')
      ),
    skip = 1,
    locale = readr::locale(encoding = 'CP1252',
                                             decimal_mark = ','))
  ghs
}

importe_save_nomenclature_ghs <- function(csv_ghs = "raw_data/ghs_pub.csv",
                                          dossier_cible = 'produced_data',
                                          nom_fichier = 'ghs2017.rds') {
  db <- importe_nomenclature_ghs(csv_ghs)
  saveRDS(db, file.path(dossier_cible, nom_fichier))
}