context("Test section metadata retrieval")
test_that("Basic section retrieval works", {
skip_on_cran()
results <- guardian_sections("test", "business")
expect_equal(length(results), 4)
expect_equal(names(results), c("status", "userTier", "total", "results"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.