data-raw/population20_msoa11.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 == "estimates20_msoa11") |>
  pull(query)


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

msoa_pop <- read_excel(tf,
  sheet = "Mid-2020 Persons",
  skip = 4
)

# Select and rename vars
msoa_pop <-
  msoa_pop |>
  select(
    msoa11_name = `MSOA Name`,
    msoa11_code = `MSOA Code`,
    `total_population` = `All Ages`,
    `0`:`90+`
  ) |>
  distinct()

# Rename
population20_msoa11 <- msoa_pop

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