tests/testthat/test-unique_by.R

context("Checking unique_by")

test_that("unique_by gives the desired output",{

    x <- with(DATA, unique_by(state, person))
    expect_true(is.list(x))
    expect_false(is.data.frame(x))

})
trinker/qdap documentation built on Sept. 30, 2020, 6:28 p.m.