Nothing
context("lawn_center")
a <- lawn_center(lawn_data$points_average)
test_that("lawn_center works", {
expect_is(a, "point")
expect_is(unclass(a), "list")
expect_is(a$type, "character")
expect_is(a$geometry, "list")
expect_is(a$geometry$type, "character")
expect_is(a$geometry$coordinates, "numeric")
expect_lt(lawn_center(lawn_data$filter_features)$geometry$coordinates[1], 0)
expect_lt(lawn_center(lawn_data$polygons_within)$geometry$coordinates[1], 0)
})
test_that("lawn_center fails correctly", {
expect_error(lawn_center(), "argument \"features\" is missing, with no default")
expect_error(lawn_center(4))
expect_error(lawn_center(4, lint = TRUE),
"The root of a GeoJSON object must be an object")
expect_error(lawn_center("a"))
expect_error(lawn_center("a", lint = TRUE),
"invalid char in json text")
})
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.