fix lintr in test file

pharmaverse · Feb 12, 2024 · 4e7c392 · 4e7c392
1 parent df4a7ed
commit 4e7c392
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-calculate_study_day.R b/tests/testthat/test-calculate_study_day.R
@@ -62,6 +62,6 @@ test_that("`calculate_study_day()` works as expected for invalid input", {
 
 test_that("`calculate_study_day()` works as expected for valid input", {
   res <- calculate_study_day(ae, dm, "RFSTDTC", "AESTDTC", "AESTDY")
-  expected <- c(-31, 1, NA)
-  expect_equal(res$AESTDY, expected)
+  expected <- c(-31L, 1L, NA)
+  expect_equal(res$AESTDY, expected, tolerance = "1.5e-08")
 })