checks

OHDSI · Sep 6, 2024 · 20e6e29 · 20e6e29
1 parent 8c3d43c
commit 20e6e29
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/tests/testthat/test-intersectCohorts.R b/tests/testthat/test-intersectCohorts.R
@@ -362,10 +362,14 @@ test_that("attrition and cohortId", {
   expect_true(nrow(settings(cdm$cohort1)) == 3)
   expect_equal(settings(cdm$cohort1)$non_overlapping, c(NA, TRUE, TRUE))
   expect_true(all(
-    omopgenerics::attrition(cdm$cohort1)$reason |> sort() ==
-      c(rep("Age requirement: 0 to 40", 2), rep("cohort_start_date after 1990-01-01", 2),
-        rep("cohort_start_date before 2025-01-01", 2), rep("Initial qualifying events", 3),
-        rep("Sex requirement: Female", 2), rep("Trim to non overlapping entries", 2))
+    omopgenerics::attrition(cdm$cohort1)$reason %in%
+  c('Initial qualifying events', 'Initial qualifying events',
+    'cohort_start_date after 1990-01-01', 'cohort_start_date before 2025-01-01',
+    'Sex requirement: Female', 'Age requirement: 0 to 40',
+    'Trim to non overlapping entries', 'Initial qualifying events',
+    'cohort_start_date after 1990-01-01', 'cohort_start_date before 2025-01-01',
+    'Sex requirement: Female', 'Age requirement: 0 to 40',
+    'Trim to non overlapping entries')
   ))
   expect_true(all(omopgenerics::attrition(cdm$cohort1)$reason_id ==  c(1, 1:6, 1:6)))
   expect_true(all(omopgenerics::attrition(cdm$cohort1)$number_records |> sort() ==

diff --git a/vignettes/a01_building_base_cohorts.Rmd b/vignettes/a01_building_base_cohorts.Rmd
@@ -2,7 +2,7 @@
 title: "Building base cohorts"
 output: rmarkdown::html_vignette
 vignette: >
-  %\VignetteIndexEntry{a01_building_concept_cohorts}
+  %\VignetteIndexEntry{a01_building_base_cohorts}
   %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
 ---