data-raw/scripts/resultat.R

In ove-ut3/apogee: Fonctions autour du referentiel Apogee

#### Résultat ####

resultat <- readxl::read_excel("data-raw/data/Resultat.xlsx", skip = 1) %>%
  patchr::rename(impexp::access_import("_rename", access_base_path)) %>%
  dplyr::full_join(
    impexp::access_import("resultat", "data-raw/data/Tables_ref.accdb") %>%
      dplyr::rename(lib_resultat_maj = lib_resultat),
    by = "code_resultat"
  ) %>%
  dplyr::mutate(lib_resultat = dplyr::if_else(!is.na(lib_resultat_maj), lib_resultat_maj, lib_resultat)) %>%
  dplyr::select(-lib_resultat_maj) %>% 
  dplyr::semi_join(
    dplyr::bind_rows(
      tidyr::drop_na(apogee::resultats_diplome, code_resultat),
      tidyr::drop_na(apogee::resultats_elp, code_resultat),
      tidyr::drop_na(apogee::resultats_etape, code_resultat)
    ),
    by = "code_resultat"
  )

usethis::use_data(resultat, overwrite = TRUE)