tests/testthat/test-release.R

test_that("bundled release has frozen v1.0 cardinalities", {
  x=imed_data(validate=FALSE)
  expect_equal(nrow(x$STUDIES),97)
  expect_equal(nrow(x$SITES),217)
  expect_equal(nrow(x$SAMPLES),293)
  expect_equal(nrow(x$MEASUREMENTS),313)
  expect_equal(nrow(x$COMPARABILITY_CLASSES),17)
})

Try the imedR package in your browser

Any scripts or data that you put into this service are public.

imedR documentation built on Nov. 3, 2026, 5:08 p.m.