Nothing
test_that("st_as_text_happign", {
skip_on_ci()
skip_on_cran()
# Point
expect_match(st_as_text_happign(point, 4326),
"POINT (47.813 -4.344)", fixed = TRUE)
expect_match(st_as_text_happign(point, 2154),
"POINT (151147 6771387)", fixed = TRUE)
# Polygon
expect_match(st_as_text_happign(poly, 4326),
"POLYGON ((47.813 -4.344", fixed = TRUE)
expect_match(st_as_text_happign(poly, 2154),
"POLYGON ((151147 6771387", fixed = TRUE)
})
test_that("spatial_filter", {
skip_on_ci()
skip_on_cran()
expect_error(construct_spatial_filter(point, c("dwithin", 50, "bad_units"), "apikey"),
"When using \"dwithin\" units should be one of")
# point
expect_match(construct_spatial_filter(x = point,
spatial_filter = c("dwithin", 50, "meters"),
crs = 4326,
layer = "layer"),
"DWITHIN(geom, POINT (47.813 -4.344), 50, meters)", fixed = T)
# polygon
expect_match(construct_spatial_filter(x = poly,
spatial_filter = c("dwithin", 50, "meters"),
crs = 4326,
layer = "layer"),
"47.815 -4.347, 47.813 -4.344)), 50, meters)", fixed = T)
# bbox
expect_match(construct_spatial_filter(x = poly,
spatial_filter = "bbox",
crs = 4326,
layer = "layer"),
"BBOX(geom, -4.347, 47.811, -4.344, 47.815, 'EPSG:4326')", fixed = T)
})
test_that("shp_to_geojson", {
expect_s3_class(shp_to_geojson(point), "json")
expect_equal(as.character(shp_to_geojson(point)),
'{"type":"Point","coordinates":[-4.344,47.813]}')
expect_s3_class(shp_to_geojson(multipoint), "json")
expect_equal(as.character(shp_to_geojson(multipoint)),
'{"type":"MultiPoint","coordinates":[[-4.347,47.815],[-4.344,47.813],[-4.346,47.811]]}')
expect_s3_class(shp_to_geojson(line), "json")
expect_equal(as.character(shp_to_geojson(line)),
'{"type":"LineString","coordinates":[[-4.344,47.813],[-4.346,47.811],[-4.347,47.815]]}')
expect_s3_class(shp_to_geojson(multiline), "json")
expect_match(as.character(shp_to_geojson(multiline)),
'{"type":"MultiLineString","coordinates":[[[-4.344,47.813],[-4.346,47.811]', fixed = T)
expect_s3_class(shp_to_geojson(poly), "json")
expect_match(as.character(shp_to_geojson(poly)),
'{"type":"Polygon","coordinates":[[[-4.347,47.815],[-4.346,47.811]', fixed = T)
expect_s3_class(shp_to_geojson(multipoly), "json")
expect_match(as.character(shp_to_geojson(multipoly)),
'{"type":"MultiPolygon","coordinates":[[[[-4.347,47.815],[-4.346,47.811]', fixed = T)
})
test_that("shp_to_geojson crs", {
expect_s3_class(shp_to_geojson(point, 2154), "json")
expect_equal(as.character(shp_to_geojson(point, 2154)),
'{"type":"Point","coordinates":[151147.032,6771386.8213]}')
})
test_that("shp_to_geojson dTolerance", {
x <- st_buffer(st_transform(poly, 2154), 1)
geojson <- shp_to_geojson(x)
simplified_geojson <- shp_to_geojson(x, 4326, 10)
expect_true(nchar(geojson) > nchar(simplified_geojson))
})
with_mock_dir("get_wfs_default_crs", {
test_that("get_wfs_default_crs", {
skip_on_cran()
skip_if_offline()
expect_error(get_wfs_default_crs("badname"), "No crs found")
crs <- get_wfs_default_crs("ELEVATION.CONTOUR.LINE:courbe")
expect_equal(crs, 4326)
})
}, simplify = FALSE)
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.