From 9a90e627597a4239a9bd483c434eba2907e5b6fd Mon Sep 17 00:00:00 2001 From: CurranGroome Date: Mon, 11 Mar 2024 13:38:54 -0400 Subject: [PATCH] minor test bug fix --- tests/testthat/test-compile_acs_data.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/testthat/test-compile_acs_data.R b/tests/testthat/test-compile_acs_data.R index a49d070..abcc9d9 100644 --- a/tests/testthat/test-compile_acs_data.R +++ b/tests/testthat/test-compile_acs_data.R @@ -1,19 +1,19 @@ ####----Load Test Data----#### -if (!(file.exists(here::here("tests", "test-data", paste0("tracts_all_states_2022_", Sys.Date(), ".csv"))))) { +# if (!(file.exists(here::here("tests", "test-data", paste0("tracts_all_states_2022_", Sys.Date(), ".csv"))))) { ## Statistics for all tracts df = compile_acs_data( variables = NULL, year = c(2022), geography = "tract", - states = NULL, + states = c("CA", "TX"), counties = NULL, retain_moes = TRUE) - readr::write_csv(df, here::here("tests", "test-data", paste0("tracts_all_states_2022_", Sys.Date(), ".csv"))) } else { - df = readr::read_csv(here::here("tests", "test-data", paste0("tracts_all_states_2022_", Sys.Date(), ".csv"))) - } + # readr::write_csv(df, here::here("tests", "test-data", paste0("tracts_all_states_2022_", Sys.Date(), ".csv"))) } else { + # df = readr::read_csv(here::here("tests", "test-data", paste0("tracts_all_states_2022_", Sys.Date(), ".csv"))) + # } ####----Tests----####