tests/testthat/test-not_in.R

test_that("%!in% works as expected", {
    foo <- c(1, 2)
    bar <- c(1, 3, 4, 5)
    result <- foo %!in% bar
    expect_equal(result, c(FALSE, TRUE))
    expect_equal(!result, foo %in% bar)
})
BastiHz/BastiHzR documentation built on March 24, 2021, 1:48 p.m.