test_that("scalar y replaces all matching x", {
x <- c(0, 1, 0)
expect_equal(na_if(x, 0), c(NA, 1, NA))
expect_equal(na_if(x, 1), c(0, NA, 0))
})
# Errors ------------------------------------------------------------------
test_that("na_if() gives meaningful errors", {
expect_snapshot({
(expect_error(na_if(1:3, 1:2)))
(expect_error(na_if(1, 1:2)))
})
})
Generated by dwww version 1.15 on Sun Jun 16 12:51:57 CEST 2024.