From 7c7f2d70906614de13110bf81f75d77a02eab3eb Mon Sep 17 00:00:00 2001 From: marjom02 Date: Thu, 20 Jun 2024 16:22:05 +0100 Subject: [PATCH] couple of note updates --- R/process_extract_care_home.R | 2 +- R/process_sc_all_care_home.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/process_extract_care_home.R b/R/process_extract_care_home.R index 54789eac9..db7997061 100644 --- a/R/process_extract_care_home.R +++ b/R/process_extract_care_home.R @@ -39,11 +39,11 @@ process_extract_care_home <- function( is_date_in_fyyear(year, .data$record_keydate1, .data$record_keydate2) ) %>% # remove any episodes where the latest submission was before the current year + # this is what stops cases being in future files dplyr::filter( substr(.data$sc_latest_submission, 1L, 4L) >= convert_fyyear_to_year(year) ) - # Data Cleaning --------------------------------------- source_ch_clean <- ch_data %>% # create variables diff --git a/R/process_sc_all_care_home.R b/R/process_sc_all_care_home.R index 033f3e327..fcd13fc36 100644 --- a/R/process_sc_all_care_home.R +++ b/R/process_sc_all_care_home.R @@ -56,7 +56,7 @@ process_sc_all_care_home <- function( dplyr::select(-latest_flag, -latest_sc_id) - # cleaning and matching care home names - Zihao looking into care home names + # cleaning and matching care home names name_postcode_clean <- fill_ch_names( ch_data = ch_clean, ch_name_lookup_path = ch_name_lookup_path,