tests/testthat/test_concaveman.R

In concaveman: A Very Fast 2D Concave Hull Algorithm

library(concaveman)
library(sf)
data(points)
context("main tests")

test_that("input and output formats works correctly", {
  expect_is(concaveman(sf::st_coordinates(points)), "matrix")
  expect_s3_class(concaveman(points), "sf")
  expect_s3_class(concaveman(sf::st_geometry(points)), "sfc")
  # input from classes that don't inherit from matrix, sf or SpatialPoints should throw an error
  expect_error(concaveman(array()))
})

test_that("outputs from methods are identical", {
  cc_m <- unname(concaveman(sf::st_coordinates(points)))
  cc_sf <- unname(sf::st_coordinates(concaveman(points))[,1:2])
  cc_sfc <- unname(sf::st_coordinates(concaveman(sf::st_geometry(points)))[,1:2])

  expect_identical(cc_sf, cc_m)
  expect_identical(cc_sfc, cc_m)
  expect_identical(cc_sf, cc_sfc)
})

test_that("outputs from sf method is identical to tidyverse implemntation", {
  # for compatibility with https://github.com/xzhoulab/SRTsim/blob/30dac3577674e250abc2f1de26dbed6a0bde64cb/R/simSRTLocs.R#L108 for example
  ptns <- concaveman(points)
  expect_no_error(as.data.frame(as.matrix(ptns$polygons[[1]])))
})