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))

})

Try the qdap package in your browser

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

qdap documentation built on May 15, 2018, 9:04 a.m.