context("test-rt_sources_use")
vcr::use_cassette("rt_sources_use", {
test_that("Can retrieve sources use list", {
expect_silent(res <- rt_source_uses())
expect_is(res, "data.frame")
expect_equal(dim(res), c(44, 3))
expect_named(res, c("id", "name", "self.href"))
})
test_that("Can retrieve sources use", {
expect_silent(res <- rt_source_uses(usage_id = 276))
expect_is(res, "data.frame")
expect_equal(dim(res), c(1, 2))
expect_named(res, c("id", "name"))
expect_equal(res$id, 276)
expect_equal(res$name, "Abaissement de rang")
})
test_that("Wrong query returns error", {
expect_error(rt_source_uses(9),
"The query returned no results. Please try another query",
fixed = TRUE)
expect_error(rt_source_uses("ASDF"),
"'usage_id' must be a numeric or NULL",
fixed = TRUE)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.