tests/testthat/test-duplicated2.R

context("duplicated2")

test_that("duplicated2 flag all the duplicates by default", {

    expect_identical(duplicated2(c(0, 1, 1, 2, 2, NA, NA)),
                     c(FALSE, rep(TRUE, 6)))

})
lbraglia/lbmisc documentation built on March 28, 2024, 10:03 a.m.