Nothing
context("facetplos")
skip_on_cran()
skip_if_offline()
test_that("facetplos", {
vcr::use_cassette("facetplos", {
# Facet on a single field
aa <- facetplos(q='*:*', facet.field='journal')
# Facet on multiple fields
bb <- facetplos(q='alcohol', facet.field=c('journal','subject'))
# Using mincount
cc <- facetplos(q='alcohol', facet.field='journal', facet.mincount='500')
# Using facet.query to get counts
## Many facet.query terms
dd <- facetplos(q='*:*', facet.field='journal', facet.query='cell,bird')
# citations returns the correct classes
expect_is(aa, "list")
expect_null(aa$facet_queries)
expect_is(aa$facet_fields, "list")
expect_is(aa$facet_fields[[1]], "data.frame")
expect_is(bb, "list")
expect_null(bb$facet_queries)
expect_is(bb$facet_fields, "list")
expect_is(bb$facet_fields[[1]], "data.frame")
expect_is(bb$facet_fields[[2]], "data.frame")
expect_named(bb$facet_fields, c('journal', 'subject'))
expect_is(cc, "list")
expect_null(cc$facet_queries)
expect_is(cc$facet_fields, "list")
expect_is(cc$facet_fields[[1]], "data.frame")
expect_named(cc$facet_fields, 'journal')
expect_lt(NROW(cc$facet_fields$journal), NROW(aa$facet_fields$journal))
expect_is(dd, "list")
expect_is(dd$facet_queries, "data.frame")
expect_is(dd$facet_fields, "list")
expect_is(dd$facet_fields[[1]], "data.frame")
expect_named(dd$facet_fields, 'journal')
})
})
test_that("facetplos fails well", {
vcr::use_cassette("facetplos-failswell", {
expect_error(facetplos(), "didn't detect any facet. fields")
expect_error(facetplos("*:*", facet.field = "adsfad"),
"400 - undefined field")
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.