tests/testthat/test-HPZone_necessary_scope.R

test_that("necessary_scope returns correct scopes", {
  expect_equal(HPZone_necessary_scope(c("Diagnosis", "Case_number", "Entered_by")), "standard")
  expect_equal(HPZone_necessary_scope(c("Diagnosis", "Case_number", "Entered_by", "Family_name")), "extended")
})

Try the HPZoneAPI package in your browser

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

HPZoneAPI documentation built on April 9, 2026, 5:09 p.m.