tests/testthat/test_epmc_ftxt_book.r

context("testing epmc_ftxt_book")

test_that("epmc_ftxt_book returns", {
  skip_on_cran()
  a <- epmc_ftxt_book("NBK32884")

  #correct class metadata
  expect_is(a, "xml_document")

})
njahn82/rebi documentation built on Nov. 28, 2023, 9:28 p.m.