Nothing
context("nearest_outcode")
test_that("nearest_outcode works as expected", {
# Don't run these tests on the CRAN build servers
skip_on_cran()
incorrect_outcode1 <- 3.15807
incorrect_outcode2 <- "E"
nearest_outcode_result <- nearest_outcode("EC1Y")
expect_error(nearest_outcode(incorrect_outcode1))
expect_error(nearest_outcode(incorrect_outcode2))
expect_error(nearest_outcode("EC1Y", limit = 101))
expect_error(nearest_outcode("EC1Y", limit = 10, radius = 25001))
expect_error(nearest_outcode("EC1Y", limit = 10, radius = 4999))
expect_that(nearest_outcode_result, is_a("list"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.