tests/testthat/test-access_data.R

test_that("srdp_orgs() returns the organization-level dataframe", {

  expect_equal(length(srdp_orgs()), 5)

})

test_that("srdp_groups() returns the group-level dataframe", {

  expect_equal(length(srdp_groups()), 5)

})

Try the sRdpData package in your browser

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

sRdpData documentation built on March 29, 2022, 9:06 a.m.