Use the custom functions

Master RMarkdown Document & Render Code/Locality Profiles Render Code.R

@@ -18,18 +18,26 @@ lp_path <- "/conf/LIST_analytics/West Hub/02 - Scaled Up Work/RMarkdown/Locality
 # Source in functions code
 source("Master RMarkdown Document & Render Code/Global Script.R")
 
+# Source custom localities function to overwrite the standard
+iz_lookup <- arrow::read_parquet(fs::path(
+  lp_path,
+  "custom_lookups/forres_and_lossiemouth_iz_april_2022.parquet"
+))
+
+source("Master RMarkdown Document & Render Code/overwrite_with_custom_functions.R")
+
 ## Specify HSCP here
 ## NOTE - make sure that the formatting of the partnership's name matches the lookup
-HSCP <- "Fife"
+HSCP <- "Moray"
 
 # Below creates locality list of all the localities in a chosen HSCP
 lookup <- read_in_localities()
 
 HSCP_list <- unique(lookup$hscp2019name)
 
 # Create list of localities in chosen HSCP
-locality_list <- lookup |> 
-  filter(hscp2019name == HSCP) |> 
+locality_list <- lookup |>
+  filter(hscp2019name == HSCP) |>
   pull(hscp_locality)