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")

})
ropensci/europepmc documentation built on Nov. 30, 2023, 12:43 a.m.