Create and use new data using the Moray Lookup

This will likely need doing for other data too...
Public-Health-Scotland · May 6, 2024 · 4be1e49 · 4be1e49
1 parent 983134f
commit 4be1e49
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/General Health/2. General Health SLF Data.R b/General Health/2. General Health SLF Data.R
@@ -105,7 +105,9 @@ ltc_data <- left_join(ltc_agg, slf_pops)
 
 #### SAVE DATA ####
 
-saveRDS(ltc_data, file = paste0(
-  lp_path, "General Health/DATA ",
-  ext_year, "/LTC_from_SLF.RDS"
-))
+arrow::write_parquet(
+  ltc_data,
+  paste0(lp_path, "General Health/DATA ", ext_year, "/LTC_from_SLF_Moray_custom.parquet"),
+  version = "latest",
+  compression = "zstd"
+)
diff --git a/General Health/3. General Health Outputs.R b/General Health/3. General Health Outputs.R
@@ -148,7 +148,9 @@ check_missing_data_scotpho(adp_presc)
 
 
 # Long-term conditions
-ltc <- readRDS(paste0(lp_path, "General Health/DATA ", ext_year, "/LTC_from_SLF.RDS"))
+ltc <- arrow::read_parquet(
+  paste0(lp_path, "General Health/DATA ", ext_year, "/LTC_from_SLF_Moray_custom.parquet")
+)
 
 ltc <- dplyr::rename(ltc,
   "Arthritis" = "arth", "Asthma" = "asthma", "Atrial fibrillation" = "atrialfib", "Cancer" = "cancer",