Update RTT data for Northern Ireland & Updated docs

R/data.R

@@ -355,8 +355,9 @@ NULL
 #'   \item{specialty}{Specialty}
 #'   \item{waits_over_18_weeks}{Total waiting > 18 weeks}
 #'   \item{waits_over_52_weeks}{Total waiting > 52 weeks}
+#'   \item{total_waits}{Total waits}
 #' }
-#' @source \url{https://www.health-ni.gov.uk/}
+#' @source \url{https://www.health-ni.gov.uk/topics/doh-statistics-and-research/hospital-waiting-times-statistics}
 "ni_rtt_hsct"
 
 #' Bed occupancy/availability in Scotland

data-raw/ni-rtt.R

@@ -23,14 +23,22 @@ ni_outpatient <- read_csv("https://www.health-ni.gov.uk/sites/default/files/publ
   )
 )
 
-# ---- Wrangle 2019, 2020 and 2021 data ----
+# ---- Wrangle data since 2019 ----
+# Patients waiting for admission to a Day Case Procedure Centre (DPC) are
+# included in these statistics.As these services are managed on a regional
+# basis, patients are not allocated as waiting at a particular HSC Trust, but
+# instead reported separately against DPC's
 ni_inpatient_sum <-
   ni_inpatient |>
   mutate(
     Date = dmy(`Quarter Ending`),
     Month = month.abb[month(Date)],
     Year = year(Date)
   ) |>
+  mutate(`HSC Trust` = case_when(
+    `HSC Trust` == "DPC" ~ "Day Case Procedure Centre",
+    TRUE ~ `HSC Trust`
+  )) |>
   filter(Year >= 2019) |>
   select_if(~ !all(is.na(.))) |>
   group_by(`HSC Trust`, Year, Month, Specialty) |>