data-raw/imd2015_england_ltla21.R

In matthewgthomas/IMD: Index of Multiple Deprivation Data for the UK

library(tidyverse)
library(devtools)
library(readxl)
library(httr)

load_all(".")

# ---- Fetch population denominators ----
# Set query url
query_url <-
  query_urls |>
  filter(data_set == "pop15_lsoa") |>
  pull(query_url)

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

pop_2015 <- read_excel(tf, sheet = "Population Denominators")

pop_2015 <-
  pop_2015 |>
  select(
    lsoa11_code = `LSOA code (2011)`,
    total_population = `Total population: mid 2012 (excluding prisoners)`
  )

# ---- Calculate LA-level IMD for 2015 ----
imd_lsoa <-
  imd2015_lsoa11_england |>

  dplyr::left_join(pop_2015, by = "lsoa11_code") |>
  dplyr::left_join(geographr::lookup_lsoa11_ltla21, by = "lsoa11_code")

# Aggregate into LADs
imd_lad <-
  imd_lsoa |>
  aggregate_scores(IMD_score, IMD_rank, IMD_decile, ltla21_code, total_population)

imd2015_england_ltla21 <- imd_lad

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