Update test-restrictToFirstEntry.R

OHDSI · Dec 6, 2023 · 65b6be0 · 65b6be0
1 parent b9f9440
commit 65b6be0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-restrictToFirstEntry.R b/tests/testthat/test-restrictToFirstEntry.R
@@ -16,7 +16,7 @@ test_that("test restrict to first entry works", {
     dplyr::pull(cohort_start_date) == c("2020-09-20", "2020-09-20")))
 
   expect_true(all(cdm$cohort1 |> CohortConstructor::restrictToFirstEntry() |>
-                    dplyr::pull(subject_id) == c(1,2)))
+                    dplyr::pull(subject_id) %in% c(1,2)))
 
   expect_true(all(cdm$cohort2 |> CohortConstructor::restrictToFirstEntry() |>
                     dplyr::pull(cohort_start_date) == c("2020-09-20", "2020-09-20")))