update tests for follow_ups

LiNk-NY · LiNk-NY · commit 79ab1230594f · 2024-09-24T14:06:22.000-04:00
diff --git a/tests/testthat/test_clinical.R b/tests/testthat/test_clinical.R
@@ -8,14 +8,17 @@ test_that("clinical data is structured properly", {
     )
     expect_true(
         all(
-            c("demographic", "diagnoses", "exposures", "main") %in%
-                names(clinical_data)
+            c("demographic", "diagnoses", "exposures", "follow_ups", "main")
+            %in%
+            names(clinical_data)
         )
     )
     
-    expect_true(
-        all(
-            vapply(clinical_data, nrow, integer(1L)) >= sizen
+    expect_identical(
+        vapply(clinical_data, nrow, integer(1L)),
+        c(
+            demographic = 3L, diagnoses = 2L, exposures = 0L,
+            follow_ups = 0L, main = 3L
         )
     )
     expect_true(

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