data-raw/ltla_names.R

In epiforecasts/covid19.nhs.data: NHS Trust Level COVID-19 Data Aggregated to a Range of Spatial Scales

library(readr)
library(dplyr)
library(here)
library(usethis)

## File from https://geoportal.statistics.gov.uk/datasets/3e4f4af826d343349c13fb7f0aa2a307_0
ltla_names <- read_csv(file = here("data-raw", "raw", "england_ltla", "ltla_utla_list.csv"), col_names = TRUE) %>%
  select(geo_code = LTLA19CD, geo_name = LTLA19NM) %>%
  unique()

use_data(ltla_names, overwrite = TRUE)