relax tests for exposures element in clinical_data

LiNk-NY · LiNk-NY · commit b1b5b8f10c78 · 2025-11-07T11:02:29.000-05:00
diff --git a/tests/testthat/test_clinical.R b/tests/testthat/test_clinical.R
@@ -14,6 +14,8 @@ test_that("clinical data is structured properly", {
         )
     )
     
+    ## exposures has no rows
+    clinical_data <- clinical_data[names(clinical_data) != "exposures"]
     expect_true(
         all(
             vapply(clinical_data, nrow, integer(1L)) >= sizen

Original file line number	Diff line number	Diff line change
`@@ -14,6 +14,8 @@ test_that("clinical data is structured properly", {`
`14`	`14`	`)`
`15`	`15`	`)`
`16`	`16`
	`17`	`+ ## exposures has no rows`
	`18`	`+ clinical_data <- clinical_data[names(clinical_data) != "exposures"]`
`17`	`19`	`expect_true(`
`18`	`20`	`all(`
`19`	`21`	`vapply(clinical_data, nrow, integer(1L)) >= sizen`