tests/testthat/test-data.R

context("data")

x <- list(basecost, cost, costSummary, fmoba, fmobaSummary, cdratio, cdba, fbxfire, firesize)

test_that("data sets are available", {
  purrr::walk(x, ~expect_is(.x, "tbl_df"))
})
leonawicz/jfsp documentation built on May 30, 2019, 11:41 p.m.