Add function to overwrite read_in_localities

This will return the Moray specific lookup

Master RMarkdown Document & Render Code/overwrite_with_custom_functions.R

@@ -1,3 +1,17 @@
+read_in_localities <- function(dz_level = FALSE) {
+  data <- arrow::read_parquet(fs::path(
+    "/conf/LIST_analytics/West Hub/02 - Scaled Up Work/RMarkdown/Locality Profiles/",
+    "custom_lookups/forres_and_lossiemouth_april_2022.parquet"
+  ))
+
+  if (!dz_level) {
+    data <- data |>
+      dplyr::distinct(hscp_locality, hscp2019name, hscp2019, hb2019name, hb2019)
+  }
+
+  return(data)
+}
+
 # Aggregate and calculate confidence interval
 summarise_iz_to_locality <- function(data, iz_lookup) {
   iz_data <- data |>