tests/testthat/test-extent-example.R

In anglr: Mesh Topology and Visualization for Spatial Data

context("test-extent-example.R")

# Create an extent to triangulate
library(anglr)
library(raster)
library(sfheaders)
my_extent <- sf_polygon(data.frame(x = c(154, 155, 155, 154), y = c(-27, -27, -26, -27),
                                polygon_id = 1, linestring_id = 1),
                        x = "x", y = "y",
                        polygon_id = "polygon_id", linestring_id = "linestring_id")

test_that("setting max area makes more triangles", {
  ## no change
  expect_that(nrow(DEL(my_extent, max_area = 0.008)$triangle),
              equals(96L))
expect_true(nrow(DEL(my_extent, max_area = 0.00008)$triangle) >
             nrow(DEL(my_extent, max_area = 0.008)$triangle))
})
test_that("dataframes with only geometry are handled", {
  expect_that(DEL(my_extent, max_area = 0.008), is_a("TRI"))
})