inst/tinytest/test_om_read_write.R

In maposm: Get Map Layers from 'OpenStreetMap'

expect_silent({res = om_get(c(-61.070, 14.605), r = 600, quiet = TRUE)})
expect_error((om_write(res, file.path(tempdir(), "f2f.gopkg"))))
expect_silent((om_write(res, file.path(tempdir(), "f2f.gpkg"))))
expect_silent({res1 = om_read(file.path(tempdir(), "f2f.gpkg"))})
expect_length(res1, 8)
expect_inherits(res1$zone, "sf")
expect_equivalent(as.numeric(sum(st_area(res1$building))), 
                  target = 340756.6, tolerance = 1)
expect_error({res2 = om_read(file.path(tempdir(), "f2f.gopkg"))})