so_ii_population.R

# code to prepare `so_ii_population` dataset goes here

so_ii_population = readxl::read_xlsx(
    geau::current_version(
        "data-common/data/INSEE/Population/Historique",
        "base-pop-historique"
    ),
    sheet = 1,
    skip = 5,
)
class(so_ii_population) = "data.frame"
rownames(so_ii_population) = so_ii_population[["CODGEO"]]
selection = grep(
    "PMUN|PSCDC|PTOT",
    colnames(so_ii_population),
    value = TRUE
)
so_ii_population = as.matrix(
    so_ii_population[geau::so_ii_scope, selection]
)
year = gsub("PMUN", "20", selection)
year = gsub("PTOT", "19", year)
year = gsub("1919", "19", year)
year = gsub("1918", "18", year)
dimnames(so_ii_population)[[2]] = year

# updating datasets

# actual = setwd(file.path(system.file(package = "geau"), ".."))
actual = setwd("geau")
usethis::use_data(so_ii_population, internal = FALSE, overwrite = TRUE)
setwd(actual)