Nothing
context("roundtrip geobuf to json")
test_that("roundtrip geobuf data",{
buf <- readBin("test.pb", raw(), file.info("test.pb")$size)
data <- read_geobuf(buf, as_data_frame = FALSE)
out <- serialize_geobuf(data, decimals = attr(data, "precision"))
data2 <- read_geobuf(out, as_data_frame = FALSE)
expect_equal(data, data2)
})
test_that("geobuf2json output is identical to NPM",{
geobuf <- fromJSON(geobuf2json("test.pb"), simplifyVector = FALSE)
geojson <- fromJSON("test.json", simplifyVector = FALSE)
expect_equal(geobuf, geojson)
})
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.