data-raw/detention_summary.R

In britishredcrosssociety/asylum: Data on Asylum and Resettlement for the UK

library(tidyverse)
library(lubridate)
library(devtools)
library(readODS)
library(httr)

load_all()

query_url <-
  query_urls |>
  filter(data_set == "detention_summary") |>
  pull(query_url)

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

detention_summary_flow <-
  read_ods(tf, sheet = "Det_01", skip = 1, .name_repair = "minimal")

children_entering_detention <-
  read_ods(tf, sheet = "Det_02b", skip = 1)

detentions_deaths_and_absconds <-
  read_ods(tf, sheet = "Det_05a", skip = 1)

detentions_deaths_details <-
  read_ods(tf, sheet = "Det_05b", skip = 1)

# People entering, leaving and in detention by asylum and non-asylum
# names(detention_summary_flow)[1] <- "Date"
# names(detention_summary_flow) |>
#   str_replace("\\.\\.at\\.",)
#   str_remove(" \\[.*\\]| \\[.*\\)")
names(detention_summary_flow) <-
  c("Date", "Entering detention", "Entering detention Asylum", "Entering detention Non-asylum", "Leaving detention", "Leaving detention Asylum",
    "Leaving detention Non-asylum", "In detention (at end of period)", "In detention Asylum", "In detention Non-asylum")

detention_summary_flow <-
  detention_summary_flow |>
  as_tibble() |>
  mutate(Date = as.integer(Date)) |>
  drop_na()

# Children entering detention
names(children_entering_detention) <-
  c("Date of entry to detention", "Total children", "Children 4 and under", "Children 5 to 11 years", "Children 12 to 16 years", "Children 17 years", "Total adults 18 and over")

children_entering_detention <-
  children_entering_detention |>
  as_tibble() |>
  mutate(`Date of entry to detention` = as.integer(`Date of entry to detention`)) |>
  drop_na()

# names(children_entering_detention) <-
#   names(children_entering_detention) |>
#   str_remove("\\n") |>
#   str_remove("\\(") |>
#   str_remove("\\)")

# Deaths of persons detained under Immigration Act Powers and absconds from detention
names(detentions_deaths_and_absconds) <-
  c("Year", "Deaths of persons detained under Immigration Powers", "Of which occurred in the detention estate", "Escapes from detention centres", "Absconds from escort")
  # str_remove(names(detentions_deaths_and_absconds), " \\[.*\\]| \\[.*\\)")

detentions_deaths_and_absconds <-
  detentions_deaths_and_absconds |>
  as_tibble() |>
  mutate(Year = as.integer(Year)) |>
  drop_na()

# Deaths of persons detained under Immigration Act Powers
names(detentions_deaths_details) <-
  c("Year", "Number", "Sex", "Age", "Nationality", "Cause of death", "Place of incident", "Place of death")
  # str_remove(names(detentions_deaths_details), " \\[.*\\]| \\[.*\\)")

detentions_deaths_details <-
  detentions_deaths_details |>
  as_tibble() |>
  mutate(Year = as.integer(Year)) |>
  drop_na()

# Save output to data/ folder
usethis::use_data(detention_summary_flow, overwrite = TRUE)
readr::write_csv(detention_summary_flow, "data-raw/detention_summary_flow.csv")

usethis::use_data(children_entering_detention, overwrite = TRUE)
readr::write_csv(children_entering_detention, "data-raw/children_entering_detention.csv")

usethis::use_data(detentions_deaths_and_absconds, overwrite = TRUE)
readr::write_csv(detentions_deaths_and_absconds, "data-raw/detentions_deaths_and_absconds.csv")

usethis::use_data(detentions_deaths_details, overwrite = TRUE)
readr::write_csv(detentions_deaths_details, "data-raw/detentions_deaths_details.csv")