tests/testthat.R

library(testthat)
context("checking the bodymapRat dataset")

library(bodymapRat)
test_that("checking number of rows in bodymapRat object", {
  bm_rat <- bodymapRat()
  
  expect_equal(nrow(bm_rat), 32637)
})
stephaniehicks/bodymapRat documentation built on June 22, 2021, 6:32 a.m.