context("swiss_json_to_dfr")
test_that("swiss_json_to_dfr works", {
expect_error(swiss_json_to_dfr(votedates="1999-01-01vv"))
cantvotes <- swiss_json_to_dfr()
expect_is(cantvotes, "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.