context("Checking p_data")

test_that("p_data returns a data.frame with 2 character columns if data is found",{

    expect_true(all(sapply(p_data(), class) == c("character", "character")))

test_that("p_data returns NULL when no data found",{


test_that("p_data returns 'NULL when no data found'packageIQR' when 'static = 'TRUE'",{

    expect_false(is.data.frame(p_data(lattice, static = TRUE)))
    expect_true(class(p_data(lattice, static = TRUE)) == "packageIQR")


Try the pacman package in your browser

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

pacman documentation built on May 29, 2017, 10:50 a.m.