context("plossubject")
skip_on_cran()
skip_if_offline()
test_that("plossubject returns the correct class", {
vcr::use_cassette("plossubject", {
tt <- plossubject(q='marine ecology', fl = 'id,journal', fq='doc_type:full', limit = 9)
expect_that(tt$data, is_a("data.frame"))
expect_that(dim(tt$data), equals(c(9,2)))
expect_that(tt$data$journal, is_a("character"))
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.