tests/testthat/test-in.R

In ilabelled: Simple Handling of Labelled Data

# test_that("'%lin%' works on labels - 'in' on underlying values", {
#   x <- i_labelled(sample(c(1:3,NA), 10, replace = T), labels = c("A" = 1, "B" = 2, "C" = 3), na_values = 3)
#   expect_true(all.equal(x %lin% "A", x %in% 1))
# })

test_that("'%in% over labels", {
  x <- i_labelled(sample(c(1:3,NA), 10, replace = T), labels = c("A" = 1, "B" = 2, "C" = 3), na_values = 3)
  expect_true(all.equal(x %in% "A", x %in% 1))
})