context("geo_type")
pt <- point('{ "type": "Point", "coordinates": [100.0, 0.0] }')
poly <- polygon('{ "type": "Polygon",
"coordinates": [
[ [100.0, 0.0], [100.0, 1.0], [101.0, 1.0], [101.0, 0.0], [100.0, 0.0] ]
]
}')
x <- '{
"type": "GeometryCollection",
"geometries": [
{
"type": "Point",
"coordinates": [100.0, 0.0]
},
{
"type": "LineString",
"coordinates": [ [101.0, 0.0], [102.0, 1.0] ]
}
]
}'
geomcoll <- geometrycollection(x)
test_that("geo_type works", {
expect_is(geo_type(pt), "character")
expect_equal(geo_type(pt), "Point")
expect_is(geo_type(poly), "character")
expect_equal(geo_type(poly), "Polygon")
expect_is(geo_type(geomcoll), "character")
expect_equal(geo_type(geomcoll), "GeometryCollection")
})
test_that("geo_type fails well", {
expect_error(geo_type(5), "no 'geo_type' method for numeric")
expect_error(geo_type(list()), "no 'geo_type' method for list")
expect_error(geo_type(mtcars), "no 'geo_type' method for data.frame")
expect_error(geo_type("ASDfasdf"), "no 'geo_type' method for character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.