tests/testthat/test_pointsincircle.R

In spatialrisk: Calculating Spatial Risk

library(spatialrisk)
context("points_in_circle")

test_that("distance in output from points in circle is equal to distance from haversine", {

  # Check first observation
  uit <- points_in_circle(Groningen, 6.52, 53.24)
  expect_equal(uit[1,]$distance_m, haversine(53.24, 6.52, uit[1,]$lat, uit[1,]$lon))

  # Check second observation
  expect_equal(uit[2,]$distance_m, haversine(53.24, 6.52, uit[2,]$lat, uit[2,]$lon))
})

test_that("lon and lat are same for input and output", {

  # Check first observation
  indf1 <- Groningen[1,]
  outdf1 <- points_in_circle(Groningen, indf1$lon, indf1$lat)[1,]
  expect_equal(indf1$lon, outdf1$lon)
  expect_equal(indf1$lat, outdf1$lat)

})