Minor sc changes

R/process_sc_all_care_home.R

@@ -47,7 +47,7 @@
       by = c("sending_location", "social_care_id")
     ) %>%
     replace_sc_id_with_latest() %>%
     dplyr::select(-latest_flag, -latest_sc_id)
 
 
   # cleaning and matching care home names
@@ -401,7 +401,6 @@
       "ch_provider_description",
       "ch_nursing",
       "ch_adm_reason",
-      "type_of_admission",
       "sc_latest_submission"
     ) %>%
     slfhelper::get_anon_chi()

R/process_sc_all_home_care.R

@@ -37,7 +37,7 @@ process_sc_all_home_care <- function(
   # Match on demographic data ---------------------------------------
 
   matched_hc_data <- replaced_dates %>%
-    dplyr::left_join(
+    dplyr::right_join(
       sc_demog_lookup,
       by = c("sending_location", "social_care_id")
     ) %>%

R/replace_sc_id_with_latest.R

@@ -48,6 +48,9 @@ replace_sc_id_with_latest <- function(data) {
         .data$latest_sc_id,
         .data$social_care_id
       )
-    )
+    ) %>%
+    dplyr::filter(!(is.na(period)))
+
+
   return(return_data)
 }