context("test-sinimr.R")
test_that("get_sinim_vars returns a valid output", {
tbl <- get_sinim_vars(262)
expect_is(tbl, "data.frame")
expect_output(str(tbl), "22 obs. of 3 variables")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.