Added Scotland ltla population for 2022

Author: jennajt

R/data.R

@@ -470,6 +470,24 @@ NULL
 #' @source \url{https://ons.gov.uk/}
 "population21_ltla21"
 
+#' Population in Scotland Councils, 2022 mid year estimates
+#' 
+#' A data set containing 2022 mid year estimate population counts for each 
+#' Council in Scotland by sex, age.
+#' 
+#' @format A data frame of class "tbl" with 32 rows and 95 variables:
+#' \describe{
+#'   \item{ltla19_name}{Local Authority name}
+#'   \item{ltla19_code}{Local Authority code}
+#'   \item{sex}{Sex}
+#'   \item{all_ages}{Total number of people}
+#'   \item{`0`:`90 and over`}{Number of people in each single age group}
+
+#'   ...
+#' }
+#' @source \url{https://www.nrscotland.gov.uk/statistics-and-data/statistics/statistics-by-theme/population/population-estimates/mid-year-population-estimates/mid-2022#:~:text=Of%20the%2032%20council%20areas,and%20Orkney%20Islands%20with%2022%2C020)}
+"population22_ltla19_scotland"
+
 #' Proficiency in English for England and Wales from the 2021 Census (MSOA)
 #' 
 #' A data sets containing Census 2021 proficiency in English numbers and 

R/sysdata.rda

@@ -0,0 +1,41 @@
+# ---- Load ----
+library(tidyverse)
+library(devtools)
+library(readxl)
+library(httr)
+library(janitor)
+
+# Load package
+load_all(".")
+
+# Set query url
+query_url <-
+  query_urls |>
+  filter(id == "estimates22_ltla19_scot") |>
+  pull(query)
+
+GET(
+  query_url,
+  write_disk(tf <- tempfile(fileext = ".xlsx"))
+)
+
+pop <-
+  read_excel(
+    tf,
+    sheet = "Table 1"  
+    )
+
+population22_ltla19_scotland <- pop |>
+  row_to_names(row_number = 3) |>
+  filter(`Area type` == "Council area") |>
+  filter(Sex == "Persons") |>
+  rename(
+    ltla19_name = `Area name`,
+    ltla19_code = `Area code`,
+    sex = Sex,
+    all_ages = `All ages`
+  ) |>
+  select(!`Area type`)
+
+# Save output to data/ folder
+usethis::use_data(population22_ltla19_scotland, overwrite = TRUE)

data-raw/population_22_ltla19_scot.R

@@ -43,6 +43,8 @@ query_urls <-
     "population", "estimates20_utla20", "25.06.21", "OGLv3", "https://www.ons.gov.uk/file?uri=%2fpeoplepopulationandcommunity%2fpopulationandmigration%2fpopulationestimates%2fdatasets%2fpopulationestimatesforukenglandandwalesscotlandandnorthernireland%2fmid2020/ukpopestimatesmid2020on2021geography.xls", "https://www.ons.gov.uk/peoplepopulationandcommunity/populationandmigration/populationestimates/datasets/populationestimatesforukenglandandwalesscotlandandnorthernireland",
     "population", "estimates21_ltla21_scot", "13.07.21", "OGLv3", "https://www.nrscotland.gov.uk/files//statistics/population-estimates/mid-21/mid-year-pop-est-21-data.xlsx", "https://www.nrscotland.gov.uk/statistics-and-data/statistics/statistics-by-theme/population/population-estimates/mid-year-population-estimates/mid-2021",
     "population", "estimates_hb19", "15.07.22", "OGLv3", "https://www.opendata.nhs.scot/dataset/7f010430-6ce1-4813-b25c-f7f335bdc4dc/resource/27a72cc8-d6d8-430c-8b4f-3109a9ceadb1/download/hb2019_pop_est_15072022.csv", "https://www.opendata.nhs.scot/dataset/population-estimates/resource/27a72cc8-d6d8-430c-8b4f-3109a9ceadb1",
+    "population", "estimates22_ltla19_scot", "15.07.22", "OGLv3", "https://www.nrscotland.gov.uk/files//statistics/population-estimates/mid-22/mid-year-pop-est-22-data.xlsx", "https://www.nrscotland.gov.uk/statistics-and-data/statistics/statistics-by-theme/population/population-estimates/mid-year-population-estimates/mid-2022#:~:text=Of%20the%2032%20council%20areas,and%20Orkney%20Islands%20with%2022%2C020)",
+    
 
     # - Population estimate OA -
     # East Midlands