context("available votedates")
test_that("available votedates works", {
swissdates <- available_votedates()
expect_is(swissdates, "Date")
cantdates <- available_votedates(geolevel = "canton")
expect_is(cantdates, "Date")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.