Nothing
context("Classes")
test_that("dataset responses work", {
fromJSONstat("dataset.json") %>%
expect_s3_class("data.frame") %>%
expect_named(c("A dimension", "value")) %>%
getElement("value") %>%
expect_equal(1)
})
test_that("collection responses work", {
fromJSONstat("collection.json") %>%
expect_type("list") %>%
getElement(1) %>%
expect_s3_class("data.frame") %>%
expect_named(c("A dimension", "value")) %>%
getElement("value") %>%
expect_equal(1)
})
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.