context("test-blizz")
# Pull some data
# df <- blizz("/d3/data/act", quiet = TRUE)
# df_json <- blizz("/d3/data/act", quiet = TRUE, json = TRUE)
test_that("blizz works", {
expect_equal(1 + 1, 2)
# expect_equal(typeof(df), "list")
# expect_equal(attributes(df_json)[["class"]], "json")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.