tests/testthat/test_discover_packages.R

context("discover_packages")
library(datafinder)

# Test output class
test_that("discover_packages returns data.frame", {
    expect_equal(class(expect_warning(discover_packages())), "data.frame")
})

# Test for NAs
test_that("No NA values in discover_packages", {
    expect_equal(sum(is.na(expect_warning(discover_packages()))), 0)
})
VectorPosse/datafinder documentation built on May 9, 2019, 9:43 p.m.