relax strictness in clinical_data checks

LiNk-NY · LiNk-NY · commit 7876d434121c · 2025-05-12T14:24:12.000-04:00
diff --git a/tests/testthat/test_clinical.R b/tests/testthat/test_clinical.R
@@ -14,11 +14,9 @@ test_that("clinical data is structured properly", {
         )
     )
     
-    expect_identical(
-        vapply(clinical_data, nrow, integer(1L)),
-        c(
-            demographic = 3L, diagnoses = 3L, exposures = 3L,
-            follow_ups = 5L, main = 3L
+    expect_true(
+        all(
+            vapply(clinical_data, nrow, integer(1L)) >= sizen
         )
     )
     expect_true(

Original file line number	Diff line number	Diff line change
`@@ -14,11 +14,9 @@ test_that("clinical data is structured properly", {`
`14`	`14`	`)`
`15`	`15`	`)`
`16`	`16`
`17`		`- expect_identical(`
`18`		`- vapply(clinical_data, nrow, integer(1L)),`
`19`		`- c(`
`20`		`- demographic = 3L, diagnoses = 3L, exposures = 3L,`
`21`		`- follow_ups = 5L, main = 3L`
	`17`	`+ expect_true(`
	`18`	`+ all(`
	`19`	`+ vapply(clinical_data, nrow, integer(1L)) >= sizen`
`22`	`20`	`)`
`23`	`21`	`)`
`24`	`22`	`expect_true(`