if (FALSE) {
dat <- get_ilostat("UNE_2UNE_SEX_AGE_NB_A", cache = FALSE)
dat_lab <- label_ilostat(dat)
head(dat_lab)
# add just ref_area label
require(tidyverse)
dat <- get_ilostat("UNE_TUNE_SEX_AGE_NB_A") %>%
mutate(ref_area.label = ref_area %>%
label_ilostat( "ref_area", code = "all"), .after = ref_area)
clean_ilostat_cache()
}
Run the code above in your browser using DataLab