tests/testthat/test-classes.R

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)
})

Try the rjstat package in your browser

Any scripts or data that you put into this service are public.

rjstat documentation built on Sept. 8, 2023, 5:10 p.m.