tests/testthat/test-rcbd.R

In qrlabelr: Generate Machine- And Human-Readable Plot Labels for Experiments

test_that("RCBD sample fieldbook successful load", {
  # skip_on_cran()
  
  expect_invisible(rcbd_book <- qrlabelr::rcbd)
  expect_true(class(rcbd_book)[1] == "data.frame")
  expect_true(dim(rcbd_book)[1] ==  144 )
  expect_true(dim(rcbd_book)[2] ==  7 )
  
})