From 983134f923ffb72754233ea04b22f2bcc6927bde Mon Sep 17 00:00:00 2001 From: James McMahon Date: Mon, 6 May 2024 17:46:12 +0100 Subject: [PATCH] Use the custom functions --- .../Locality Profiles Render Code.R | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/Master RMarkdown Document & Render Code/Locality Profiles Render Code.R b/Master RMarkdown Document & Render Code/Locality Profiles Render Code.R index 210a2d5..f9011a7 100755 --- a/Master RMarkdown Document & Render Code/Locality Profiles Render Code.R +++ b/Master RMarkdown Document & Render Code/Locality Profiles Render Code.R @@ -18,9 +18,17 @@ 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() @@ -28,8 +36,8 @@ 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)