data-raw/formations_liste.R

In ove-ut3/formation.offre: Offre de formation

annee <- 2017

formations <- apogee::formations_liste(annee, unique = FALSE) %>%
  dplyr::mutate(lib_etape = apogee::lib_etape(code_etape, prefixe = NA_character_, suffixe = c("ville", "option", "particularite")),
                annee_etape = stringr::str_c("Bac+", annee_etape),
                annee_etape = ifelse(annee_etape == "Bac+0", "Bac", annee_etape)) %>%
  tidyr::replace_na(list(lib_mention = "Pas de mention",
                         lib_domaine = "Pas de domaine",
                         annee_etape = "Pas d'année")) %>%
  dplyr::select(lib_composante, acronyme_type_diplome, annee_etape, code_etape, lib_etape, acronyme_etape, lib_mention, lib_domaine)

usethis::use_data(formations, overwrite = TRUE)

formations_unique <- apogee::formations_liste(annee) %>%
  dplyr::mutate(lib_etape = apogee::lib_etape(code_etape, prefixe = NA_character_, suffixe = c("ville", "option", "particularite")),
                annee_etape = stringr::str_c("Bac+", annee_etape),
                annee_etape = ifelse(annee_etape == "Bac+0", "Bac", annee_etape)) %>%
  tidyr::replace_na(list(lib_mention = "Pas de mention",
                         lib_domaine = "Pas de domaine",
                         annee_etape = "Pas d'année")) %>%
  dplyr::select(lib_composante, acronyme_type_diplome, annee_etape, code_etape, lib_etape, acronyme_etape, lib_mention, lib_domaine)

usethis::use_data(formations_unique, overwrite = TRUE)