Update test-sampleCohorts.R

OHDSI · Oct 16, 2024 · db6c49c · db6c49c
1 parent 17a7a32
commit db6c49c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-sampleCohorts.R b/tests/testthat/test-sampleCohorts.R
@@ -8,7 +8,7 @@ test_that("sampleCohort subsetting one cohort", {
  schema = "main",
  overwrite = TRUE)
 
- cdm$cohort1 <- sampleCohorts(cdm$cohort1, 2, 1)
+ cdm$cohort1 <- sampleCohorts(cdm$cohort1, n = 2, cohortId = 1)
  expect_true(cdm$cohort1 |>
  dplyr::filter(cohort_definition_id == 1) |>
  dplyr::pull("subject_id") |>
@@ -18,7 +18,7 @@ test_that("sampleCohort subsetting one cohort", {
  dplyr::pull("cohort_definition_id") == 1)
 
  # Subset it again should yield the same cohort
- test_cohort1 <- sampleCohorts(cdm$cohort1, 2, 1)
+ test_cohort1 <- sampleCohorts(cdm$cohort1, n = 2, cohortId = 1)
  expect_true(all.equal(test_cohort1, cdm$cohort1))
  expect_true(attrition(test_cohort1) |>
  dplyr::filter(reason == "Sample 2 individuals" & reason_id == 3) |>