R/vulnerability/health-inequalities/northern-ireland/healthy-people/diabetes.R

In britishredcrosssociety/resilience-index: What the Package Does (One Line, Title Case)

library(tidyverse)
library(httr)
library(readODS)

GET(
  "https://www.ninis2.nisra.gov.uk/Download/Health%20and%20Social%20Care/Disease%20Prevalence%20(Quality%20Outcomes%20Framework)%20(administrative%20geographies).ods",
  write_disk(tf <- tempfile(fileext = ".ods"))
)

raw <-
  read_ods(
    tf,
    sheet = "LGD2014",
    range = "B4:AL15"
  )

diabetes <-
  raw |>
  as_tibble() |>
  select(
    lad_code = `LGD2014 Code`,
    diabetes_per_1000_patients = `Diabetes Mellitus Register: Raw Prevalence per 1,000 patients aged 17+ years`
  )

write_rds(diabetes, "data/vulnerability/health-inequalities/northern-ireland/healthy-people/diabetes.rds")