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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.