context("random_postcode")
test_that("random_postcode works as expected", {
# Don't run these tests on the CRAN build servers
skip_on_cran()
test_outcode <- "N1"
random_postcode_result1 <- random_postcode()
random_postcode_result2 <- random_postcode(test_outcode)
expect_that(random_postcode_result1, is_a("list"))
expect_that(random_postcode_result2, is_a("list"))
expect_equal(random_postcode_result2$outcode, test_outcode)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.