get_chi for data

Public-Health-Scotland · Nov 25, 2024 · 63372ee · 63372ee
1 parent 97346f7
commit 63372ee
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 10 deletions.
diff --git a/R/process_tests_it_chi_deaths.R b/R/process_tests_it_chi_deaths.R
@@ -9,9 +9,10 @@ process_tests_it_chi_deaths <- function(data, update = previous_update()) {
 
   comparison <- produce_test_comparison(
     old_data = produce_it_chi_deaths_tests(
-      read_file(get_slf_chi_deaths_path(update = update))
+      read_file(get_slf_chi_deaths_path(update = update)) %>%
+        slfhelper::get_chi()
     ),
-    new_data = produce_it_chi_deaths_tests(data)
+    new_data = produce_it_chi_deaths_tests(data %>% slfhelper::get_chi())
   ) %>%
     write_tests_xlsx(sheet_name = "it_chi_deaths", workbook_name = "lookup")
 

diff --git a/R/process_tests_sc_all_at_episodes.R b/R/process_tests_sc_all_at_episodes.R
@@ -12,10 +12,11 @@
 process_tests_sc_all_at_episodes <- function(data) {
   comparison <- produce_test_comparison(
     old_data = produce_sc_all_episodes_tests(
-      read_file(get_sc_at_episodes_path(update = previous_update()))
+      read_file(get_sc_at_episodes_path(update = previous_update())) %>%
+        slfhelper::get_chi()
     ),
     new_data = produce_sc_all_episodes_tests(
-      data
+      data %>% slfhelper::get_chi()
     )
   )
 

diff --git a/R/process_tests_sc_all_ch_episodes.R b/R/process_tests_sc_all_ch_episodes.R
@@ -12,10 +12,12 @@
 process_tests_sc_all_ch_episodes <- function(data) {
   comparison <- produce_test_comparison(
     old_data = produce_sc_all_episodes_tests(
-      read_file(get_sc_ch_episodes_path(update = previous_update()))
+      read_file(get_sc_ch_episodes_path(update = previous_update()))%>%
+        slfhelper::get_chi()
     ),
     new_data = produce_sc_all_episodes_tests(
-      data
+      data %>%
+        slfhelper::get_chi()
     )
   )
 

diff --git a/R/process_tests_sc_all_hc_episodes.R b/R/process_tests_sc_all_hc_episodes.R
@@ -12,10 +12,12 @@
 process_tests_sc_all_hc_episodes <- function(data) {
   comparison <- produce_test_comparison(
     old_data = produce_sc_all_episodes_tests(
-      read_file(get_sc_hc_episodes_path(update = previous_update()))
+      read_file(get_sc_hc_episodes_path(update = previous_update())) %>%
+        slfhelper::get_chi()
     ),
     new_data = produce_sc_all_episodes_tests(
-      data
+      data %>%
+        slfhelper::get_chi()
     )
   )
 

diff --git a/R/process_tests_sc_all_sds_episodes.R b/R/process_tests_sc_all_sds_episodes.R
@@ -12,10 +12,12 @@
 process_tests_sc_all_sds_episodes <- function(data) {
   comparison <- produce_test_comparison(
     old_data = produce_sc_all_episodes_tests(
-      read_file(get_sc_sds_episodes_path(update = previous_update()))
+      read_file(get_sc_sds_episodes_path(update = previous_update())) %>%
+        slfhelper::get_chi()
     ),
     new_data = produce_sc_all_episodes_tests(
-      data
+      data %>%
+        slfhelper::get_chi()
     )
   )