data-raw/lookup_lsoa11_ltla18.R

In britishredcrosssociety/geographr: R package for mapping UK geographies

# ---- Load ----
library(tidyverse)
library(devtools)
library(sf)

# Load package
load_all(".")

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

lsoa_ltla <- read_sf(query_url)

# Select and rename vars
lsoa_ltla <-
  lsoa_ltla |>
  select(
    lsoa11_name = LSOA11NM,
    lsoa11_code = LSOA11CD,
    ltla18_name = LAD18NM,
    ltla18_code = LAD18CD
  )

# Rename
lookup_lsoa11_ltla18 <-
  lsoa_ltla |>
  st_drop_geometry()

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