There was probably a single site!

CDCgov · Oct 25, 2024 · 34c9179 · 34c9179
1 parent a2522aa
commit 34c9179
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/tests/testthat/test_preprocess_ww_data.R b/tests/testthat/test_preprocess_ww_data.R
@@ -381,12 +381,15 @@ test_that("Function handles LOD values equal to concentration values", {
 })
 
 test_that("Constant population per site", {
-  wrong_pop <- ww_data
-  ww_data$site_pop <- 1e6 + seq_len(nrow(ww_data))
+  wrong_pop <- cbind(
+    ww_data,
+    ww_data |> dplyr::mutate(site = max(.data$site) + 1)
+  )
+  wrong_pop$site_pop <- 1e6 + seq_len(nrow(ww_data))
 
   expect_error(
     preprocess_ww_data(
-      ww_data,
+      wrong_pop,
       conc_col_name = "conc",
       lod_col_name = "lod"
     ),