From 2600a679547e1b7d375eb94e25b8c215aefac03d Mon Sep 17 00:00:00 2001 From: Peter Desmet Date: Tue, 17 Dec 2024 13:50:36 +0100 Subject: [PATCH] Revert expect_ function --- tests/testthat/test-individuals.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-individuals.R b/tests/testthat/test-individuals.R index 81f20c18..a35f3255 100644 --- a/tests/testthat/test-individuals.R +++ b/tests/testthat/test-individuals.R @@ -28,5 +28,5 @@ test_that("individuals() returns the expected rows (unique individuals)", { x$data$observations[x$data$observations$observationID == "05230014",]$individualID <- "Fezzik" x$data$observations[x$data$observations$observationID == "5ead5692",]$individualID <- "Buttercup" x$data$observations[x$data$observations$observationID == "29939500",]$individualID <- "Westley" - expect_length(individuals(x), 3) + expect_equal(nrow(individuals(x)), 3) })