Merge pull request #274 from OHDSI/issue_156

testing strata when density is computed in summariseObservationPeriod
OHDSI · Dec 17, 2024 · 28150e8 · 28150e8
2 parents fa78c7c + a516400
commit 28150e8
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/tests/testthat/test-summariseObservationPeriod.R b/tests/testthat/test-summariseObservationPeriod.R
@@ -433,6 +433,34 @@ test_that("check summariseObservationPeriod strata works", {
       dplyr::pull("estimate_value"), "32"
   )
 
+  expect_no_error(x<-summariseObservationPeriod(cdm$observation_period, estimates = "density", sex = TRUE, ageGroup = list(c(0,9), c(10, Inf))))
+  expect_no_error(
+    x |>
+      plotObservationPeriod(
+        variableName = "duration in days", plotType = "densityplot", colour = "sex", facet = "age_group")
+  )
+
+  expect_no_error(
+    x |>
+      plotObservationPeriod(
+        variableName = "days to next observation period", plotType = "densityplot", colour = "sex", facet = "age_group")
+  )
+  expect_no_error(
+    x |>
+      plotObservationPeriod(
+        variableName = "records per person", plotType = "densityplot", colour = "sex", facet = "age_group")
+  )
+
+  expect_error(x |>
+                 plotObservationPeriod(
+                   variableName = "number records", plotType = "densityplot", colour = "sex", facet = "age_group"))
+  y<-summariseObservationPeriod(cdm$observation_period, estimates = "mean", sex = TRUE, ageGroup = list(c(0,9), c(10, Inf)))
+  expect_error(
+    y |>
+      plotObservationPeriod(
+        variableName = "records per person", plotType = "densityplot", colour = "sex", facet = "age_group")
+  )
+
   PatientProfiles::mockDisconnect(cdm = cdm)
 })