Update tests/testthat/test-utils_get_data.R

Co-authored-by: Milan Malfait <[email protected]>
SAFEHR-data · Sep 6, 2024 · 3ee7c2a · 3ee7c2a
1 parent a2ba33d
commit 3ee7c2a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-utils_get_data.R b/tests/testthat/test-utils_get_data.R
@@ -64,6 +64,10 @@ test_that("Test data parquet files exist and are accessible", {
 #   1 < LOW_FREQUENCY_THRESHOLD < 1000
 #   1 < LOW_FREQUENCY_REPLACEMENT < 1000
 test_that("Test low frequency stats replacement for monthly counts", {
+  withr::local_envvar(
+    "LOW_FREQUENCY_THRESHOLD" = 10,
+    "LOW_FREQUENCY_REPLACEMENT" = 2.5
+  )
   mock_monthly_counts <- data.frame(
     concept_id = c(1, 2, 3, 4, 5, 6, 7),
     person_count = c(0, 0, 1000, 1000, 1, 1000, 1),