data-raw/scripts/elp.R

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

#### 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)