tests/testthat/test-util_check_one_unique_value.R

test_that("util_check_one_unique_value works", {
  expect_false(util_check_one_unique_value(1:2))
  expect_false(util_check_one_unique_value(c(1:2, NA)))
  expect_true(util_check_one_unique_value(c(1, NA)))
  expect_false(util_check_one_unique_value(c(NA, NA)))
})

Try the dataquieR package in your browser

Any scripts or data that you put into this service are public.

dataquieR documentation built on July 26, 2023, 6:10 p.m.