fix cbind, dont want duplicat column names, use seq_len but differently

CDCgov · Oct 30, 2024 · cac864d · cac864d
1 parent 3621be0
commit cac864d
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/tests/testthat/test_preprocess_ww_data.R b/tests/testthat/test_preprocess_ww_data.R
@@ -381,10 +381,8 @@ test_that("Function handles LOD values equal to concentration values", {
 })
 
 test_that("Constant population per site", {
-  wrong_pop <- cbind(
-    ww_data,
-    ww_data |> dplyr::mutate(site = "wrong pop")
-  )
+  wrong_pop <- ww_data
+
   wrong_pop$site_pop <- 1e6 + seq_len(nrow(ww_data))
 
   expect_error(