From 60a46611df95d45151036930e5fc795858a0ce23 Mon Sep 17 00:00:00 2001 From: "Andrew G. Brown" Date: Fri, 19 Aug 2022 09:22:49 -0700 Subject: [PATCH] Oops, NA_real_ for proper expectation --- tests/testthat/test-slab.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-slab.R b/tests/testthat/test-slab.R index 8b1584f4f..10a4c5739 100644 --- a/tests/testthat/test-slab.R +++ b/tests/testthat/test-slab.R @@ -125,7 +125,7 @@ test_that("extended slab functionality: weighted aggregation", { expect_equal(na.1$p.q50, 6.5) na.2 <- slab(x, ~ ph1to1h2o_r, slab.structure = c(0, 10), weights = "comppct_r", slab.fun = weighted.mean, na.rm = TRUE) - expect_equal(na.2$value, NA) + expect_equal(na.2$value, NA_real_) })