tests/testthat/test-spatial-rdd-aggregation-fns.R

In r-spark/sparklyr.sedona: Sparklyr Extension for Apache Sedona

context("spatial RDD aggregation functions")

sc <- testthat_spark_connection()
pt_rdd <- read_point_rdd_with_non_spatial_attrs(repartition = 11)

test_that("minimum_bounding_box() works as expected", {
  bb <- minimum_bounding_box(pt_rdd)

  expect_equal(
    c(bb$minX(), bb$maxX(), bb$minY(), bb$maxY()),
    c(-173.120769, -84.965961, 30.244859, 71.355134)
  )
})

test_that("approx_count() works as expected", {
  expect_equal(approx_count(pt_rdd), 3000)
})