Merge pull request #18 from oxford-pharmacoepi/marta_dev

Update test-generateMatchedCohortSet.R
OHDSI · Dec 6, 2023 · df88082 · df88082
2 parents b5d321a + f82c61b
commit df88082
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/tests/testthat/test-generateMatchedCohortSet.R b/tests/testthat/test-generateMatchedCohortSet.R
@@ -243,7 +243,7 @@ test_that("test exactMatchingCohort with a ratio bigger than 1", {
                             "gender_concept_id" = rep(8532,10),
                             "year_of_birth" = rep(1980, 10),
                             "day_of_birth"  = rep(1, 10),
-                            "birth_date_time" = rep(as.Date(1980,04,01),10),
+                            "birth_date_time" = as.Date(rep("1980-04-01",10)),
                             "month_of_birth"  = rep(4, 10)),
     condition_occurrence = tibble::tibble("condition_ocurrence_id" = seq(1,10,1),
                                           "person_id" = seq(1,10,1),
@@ -294,7 +294,8 @@ test_that("test exactMatchingCohort with a ratio bigger than 1", {
 
 
   outc <- a[["new_cohort"]] %>%
-    dplyr::filter(subject_id == 5) %>% dplyr::summarise(cohort_start_date) %>% dplyr::pull() %in% c("2017-10-30","2003-01-04","2014-12-15","2010-09-09")
+    dplyr::filter(subject_id == 5) %>% dplyr::summarise(cohort_start_date) %>%
+    dplyr::pull() %in% c("2017-10-30","2003-01-04","2014-12-15","2010-09-09")
   expect_true(unique(outc) == TRUE)
 })