#### ELP ####
elp <- readxl::read_excel("data-raw/data/ELP.xlsx", skip = 1) %>%
patchr::rename(impexp::access_import("_rename", access_base_path)) %>%
dplyr::bind_rows(impexp::access_import("elp_ajout", "data-raw/data/Tables_ref.accdb")) %>%
dplyr::arrange(code_elp, ects) %>%
dplyr::group_by(code_elp) %>%
dplyr::filter(dplyr::row_number() == 1) %>%
dplyr::ungroup()
patchr::duplicate(elp, code_elp)
usethis::use_data(elp, overwrite = TRUE)
#### ELP nature ####
elp_nature <- readxl::read_excel("data-raw/data/ELP.xlsx", "ELP - Nature", skip = 1) %>%
patchr::rename(impexp::access_import("_rename", access_base_path))
usethis::use_data(elp_nature, overwrite = TRUE)
#### ELP PĂ©riode ####
elp_periode <- readxl::read_excel("data-raw/data/ELP.xlsx", "ELP - Periode", skip = 1) %>%
patchr::rename(impexp::access_import("_rename", access_base_path))
usethis::use_data(elp_periode, overwrite = TRUE)
#### ELP histo ####
elp_histo <- impexp::access_import("elp_histo", "data-raw/data/Tables_ref.accdb")
usethis::use_data(elp_histo, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.