tests/testthat/test-interpolate.R

In terminological/arear: Geospatial Convenience Functions and a Supply Demand Catchment Area Generator

test_that("interpolate test 1", {

  # devtools::load_all()
  out = arear::interpolateByArea(
    inputDf = arear::testdata$demand11x11 %>% group_by(type),
    by="id",
    inputShape = arear::testdata$grid11x11,
    interpolateVar = demand,
    outputShape = arear::testdata$diamond11x11 %>% group_by(x,y,id)
  )

})