From 4e7c3925edabe8fd9ceb0c1f03cdeb0c18e1136b Mon Sep 17 00:00:00 2001 From: Rosemary Li Date: Mon, 12 Feb 2024 04:21:29 +0000 Subject: [PATCH] fix lintr in test file --- tests/testthat/test-calculate_study_day.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-calculate_study_day.R b/tests/testthat/test-calculate_study_day.R index 3be65d7b..6c13926b 100644 --- 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") })