tests/testthat/test_read_data_entity.R

context("Read data entity")

testthat::test_that("read_data_entity() works", {
  packageId <- "edi.1047.1"
  entityId <- "58b9000439a5671ea7fe13212e889ba5"
  vcr::use_cassette("read_data_entity", {
    resp <- read_data_entity(packageId, entityId)
  })
  expect_type(resp, "raw")
})

Try the EDIutils package in your browser

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

EDIutils documentation built on Oct. 11, 2023, 1:08 a.m.