tests/testthat/test-find_vt_ids.R

test_that("find_vt_ids returns sensible ids", {
  vcr::local_cassette("find_vt_ids")
  out <- find_vt_ids()
  expect_s3_class(out, "ohvbd.ids")
  expect_true(is_from(out, "vt"))
})

Try the ohvbd package in your browser

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

ohvbd documentation built on March 10, 2026, 1:07 a.m.