tests/testthat/test_add_from_raster.R

In choisy/sptools: Additional Functions for Spatial* Objects

library(sf)
library(sp)

context("add_from_raster")

test_that("`add_from_raster` has the correct behaviour", {

  # SpatialPolygons
  fr <- as_Spatial(sptools::gadm("France", "sf", 0, intlib = TRUE))

  test1 <- spsample(fr, 100, "random")
  test1 <- SpatialPointsDataFrame(test1, data.frame(variable = 1:100))

  expect_error(add_from_raster(test1, srtmVN::getsrtm(), "elevation"))

})