tests/testthat/test_browse_elements.R

context("browse_elements")

test_that("Browse elements works on length-2", {
  out <- browse_elements(c("Provider", "Maj"))
  expect_true("Maj_course_ind" %in% out[["long_name"]])
  expect_true("HE_Provider_name" %in% out[["long_name"]])
})

Try the heims package in your browser

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

heims documentation built on May 2, 2019, 9:20 a.m.