data-raw/population17_lsoa11.R

In humaniverse/demographr: R package for mapping UK demographics

# ---- Load ----
library(tidyverse)
library(devtools)
library(readxl)
library(httr)

# Load package
load_all(".")

# Set query url
query_url <-
  query_urls |>
  filter(id == "estimates17_lsoa11") |>
  pull(query)

GET(query_url,
    write_disk(tf <- tempfile(fileext = ".zip")))

# Where to store the unzipped files temporarily
td <- tempdir()
unzip_dir <- file.path(td, "population-lsoa")

# Delete the temp folder if it already exists
if (dir.exists(unzip_dir))
  unlink(unzip_dir, recursive = TRUE)

dir.create(unzip_dir)

unzip(tf, exdir = unzip_dir)

lsoa_pop <- read_excel(file.path(unzip_dir, "SAPE20DT1-mid-2017-lsoa-syoa-estimates-formatted.xls"),
                       sheet = "Mid-2017 Persons", skip = 4)

# Select and rename vars
lsoa_pop <-
  lsoa_pop %>%
  # filter so only LSOAs not also LTLAs
  filter(!is.na(...3)) |>
  select(
    lsoa11_code = `Area Codes`,
    lsoa11_name = `...3`,
    `total_population` = `All Ages`,
    `0`:`90+`
  ) %>%
  distinct()

# Rename
population17_lsoa11 <- lsoa_pop

# Save output to data/ folder
usethis::use_data(population17_lsoa11, overwrite = TRUE)

unlink(tf); rm(tf)
unlink(td); rm(td)