slightly increase tolerance in expect_equal for .read.epidist_db test

epiverse-trace · Jun 10, 2024 · 48167ac · 48167ac
1 parent 8542f82
commit 48167ac
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-epidist_db.R b/tests/testthat/test-epidist_db.R
@@ -220,7 +220,7 @@ test_that("sysdata is the same as .read_epidist_db output", {
   set.seed(1)
   sysdat <- suppressMessages(epidist_db())
   db <- .read_epidist_db()
-  expect_equal(sysdat, db, tolerance = 1e-3)
+  expect_equal(sysdat, db, tolerance = 2e-3)
 })
 
 test_that(".read_epidist_db fails correctly when jsonlite is not installed", {