#### 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.