Nothing
context("Test edition metadata retrieval")
test_that("Basic edition retrieval works", {
skip_on_cran()
results <- guardian_editions("test", "uk")
expect_equal(length(results), 4)
expect_equal(names(results), c("status", "userTier", "total", "results"))
})
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.