tests/testthat/test-coalesce.R

In YTLogos/dplyr: A Grammar of Data Manipulation

context("coalesce")

test_that("non-missing scalar replaces all missing values", {
  x <- c(NA, 1)
  expect_equal(coalesce(x, 1), c(1, 1))
})

test_that("finds non-missing values in multiple positions", {
  x1 <- c(1L, NA, NA)
  x2 <- c(NA, 2L, NA)
  x3 <- c(NA, NA, 3L)

  expect_equal(coalesce(x1, x2, x3), 1:3)
})

test_that("error if invalid length", {
  expect_error(
    coalesce(1:2, 1:3),
    "Argument 2 must be length 2 (length of `x`) or one, not 3",
    fixed = TRUE
  )
})