tests/testthat/test-01-data.R

context("Check data loading")

test_that("check rodents data", {
  data(rodents)
  expect_equal(length(rodents), 2)
  expect_equal(names(rodents), c("document_term_table",
                                 "document_covariate_table"))
})

test_that("check jornada data", {
  data(jornada)
  expect_equal(length(rodents), 2)
  expect_equal(names(rodents), c("document_term_table",
                                 "document_covariate_table"))
})
weecology/LDATS documentation built on March 28, 2020, 11:20 a.m.