Nothing
context("lawn_polygon")
test_that("lawn_polygon works", {
rings <- list(list(
c(-2.275543, 53.464547),
c(-2.275543, 53.489271),
c(-2.215118, 53.489271),
c(-2.215118, 53.464547),
c(-2.275543, 53.464547)
))
a <- lawn_polygon(rings)
b <- lawn_polygon(rings, properties = list(name = 'poly1', population = 400))
expect_is(a, "polygon")
expect_is(unclass(a), "list")
expect_equal(a$type, "Feature")
expect_is(a$geometry, "list")
expect_is(a$geometry$coordinates, "array")
expect_equal(length(a$geometry$coordinates), 10)
expect_equal(length(a$properties), 0)
expect_is(b, "polygon")
expect_is(unclass(b), "list")
expect_equal(b$type, "Feature")
expect_is(b$geometry, "list")
expect_is(b$properties, "list")
expect_equal(length(b$properties), 2)
# passing NULL gives empty polygon geometry
expect_is(lawn_polygon(NULL), "polygon")
})
test_that("lawn_polygon fails correctly", {
expect_error(lawn_polygon(),
"argument \"coordinates\" is missing, with no default")
expect_error(lawn_polygon("stuff"))
})
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.