add XPT files for SAS software

data-raw/_pre_commit_hook.R

@@ -366,7 +366,7 @@ if (changed_md5(clin_break)) {
   write_md5(clin_break)
   try(saveRDS(clin_break, "data-raw/clinical_breakpoints.rds", version = 2, compress = "xz"), silent = TRUE)
   try(write.table(clin_break, "data-raw/clinical_breakpoints.txt", sep = "\t", na = "", row.names = FALSE), silent = TRUE)
-  try(haven::write_sas(clin_break, "data-raw/clinical_breakpoints.sas"), silent = TRUE)
+  try(haven::write_xpt(clin_break, "data-raw/clinical_breakpoints.xpt"), silent = TRUE)
   try(haven::write_sav(clin_break, "data-raw/clinical_breakpoints.sav"), silent = TRUE)
   try(haven::write_dta(clin_break, "data-raw/clinical_breakpoints.dta"), silent = TRUE)
   try(openxlsx::write.xlsx(clin_break, "data-raw/clinical_breakpoints.xlsx"), silent = TRUE)
@@ -382,7 +382,7 @@ if (changed_md5(microorganisms)) {
   mo <- microorganisms
   mo$snomed <- max_50_snomed
   mo <- dplyr::mutate_if(mo, ~ !is.numeric(.), as.character)
-  try(haven::write_sas(mo, "data-raw/microorganisms.sas"), silent = TRUE)
+  try(haven::write_xpt(mo, "data-raw/microorganisms.xpt"), silent = TRUE)
   try(haven::write_sav(mo, "data-raw/microorganisms.sav"), silent = TRUE)
   try(haven::write_dta(mo, "data-raw/microorganisms.dta"), silent = TRUE)
   mo_all_snomed <- microorganisms %>% mutate_if(is.list, function(x) sapply(x, paste, collapse = ","))
@@ -397,7 +397,7 @@ if (changed_md5(ab)) {
   usethis::ui_info(paste0("Saving {usethis::ui_value('antibiotics')} to {usethis::ui_value('data-raw/')}"))
   write_md5(ab)
   try(saveRDS(antibiotics, "data-raw/antibiotics.rds", version = 2, compress = "xz"), silent = TRUE)
-  try(haven::write_sas(ab, "data-raw/antibiotics.sas"), silent = TRUE)
+  try(haven::write_xpt(ab, "data-raw/antibiotics.xpt"), silent = TRUE)
   try(haven::write_sav(ab, "data-raw/antibiotics.sav"), silent = TRUE)
   try(haven::write_dta(ab, "data-raw/antibiotics.dta"), silent = TRUE)
   ab_lists <- antibiotics %>% mutate_if(is.list, function(x) sapply(x, paste, collapse = ","))
@@ -412,7 +412,7 @@ if (changed_md5(av)) {
   usethis::ui_info(paste0("Saving {usethis::ui_value('antivirals')} to {usethis::ui_value('data-raw/')}"))
   write_md5(av)
   try(saveRDS(antivirals, "data-raw/antivirals.rds", version = 2, compress = "xz"), silent = TRUE)
-  try(haven::write_sas(av, "data-raw/antivirals.sas"), silent = TRUE)
+  try(haven::write_xpt(av, "data-raw/antivirals.xpt"), silent = TRUE)
   try(haven::write_sav(av, "data-raw/antivirals.sav"), silent = TRUE)
   try(haven::write_dta(av, "data-raw/antivirals.dta"), silent = TRUE)
   av_lists <- antivirals %>% mutate_if(is.list, function(x) sapply(x, paste, collapse = ","))
@@ -433,7 +433,7 @@ if (changed_md5(intrinsicR)) {
   write_md5(intrinsicR)
   try(saveRDS(intrinsicR, "data-raw/intrinsic_resistant.rds", version = 2, compress = "xz"), silent = TRUE)
   try(write.table(intrinsicR, "data-raw/intrinsic_resistant.txt", sep = "\t", na = "", row.names = FALSE), silent = TRUE)
-  try(haven::write_sas(intrinsicR, "data-raw/intrinsic_resistant.sas"), silent = TRUE)
+  try(haven::write_xpt(intrinsicR, "data-raw/intrinsic_resistant.xpt"), silent = TRUE)
   try(haven::write_sav(intrinsicR, "data-raw/intrinsic_resistant.sav"), silent = TRUE)
   try(haven::write_dta(intrinsicR, "data-raw/intrinsic_resistant.dta"), silent = TRUE)
   try(openxlsx::write.xlsx(intrinsicR, "data-raw/intrinsic_resistant.xlsx"), silent = TRUE)
@@ -446,7 +446,7 @@ if (changed_md5(dosage)) {
   write_md5(dosage)
   try(saveRDS(dosage, "data-raw/dosage.rds", version = 2, compress = "xz"), silent = TRUE)
   try(write.table(dosage, "data-raw/dosage.txt", sep = "\t", na = "", row.names = FALSE), silent = TRUE)
-  try(haven::write_sas(dosage, "data-raw/dosage.sas"), silent = TRUE)
+  try(haven::write_xpt(dosage, "data-raw/dosage.xpt"), silent = TRUE)
   try(haven::write_sav(dosage, "data-raw/dosage.sav"), silent = TRUE)
   try(haven::write_dta(dosage, "data-raw/dosage.dta"), silent = TRUE)
   try(openxlsx::write.xlsx(dosage, "data-raw/dosage.xlsx"), silent = TRUE)