tests/testthat/test-radius_search.R

In rTLS: Processing of Point Clouds Derived from Terrestrial Laser Scanning

### Radius_search

test_that("Whether radius_search works", {

  point_cloud <- data.table(X = c(0, 0, 0, 0, 0, -1, 1),
                            Y = c(0, 0, 0, -1, 1, 0, 0),
                            Z = c(-1, 0, 1, 0, 0, 0, 0))

  to_test <- radius_search(point_cloud,
                           point_cloud,
                           radius = 1,
                           max_neighbour = 2,
                           same =TRUE)

  expect_equal(nrow(to_test[ref == 2]), 6, info = "radius_search")
  expect_equal(max(to_test$distance), 1, info = "value of distance")
  expect_equal(min(to_test$distance), 1, info = "value of distance")

  to_test <- radius_search(point_cloud,
                              point_cloud,
                              radius = 4,
                              max_neighbour = 7,
                              same = FALSE)

  expect_equal(nrow(to_test[query == 2]), 7, info = "radius_search")
  expect_equal(max(to_test$distance), 2, info = "value of distance")
  expect_equal(min(to_test$distance), 0, info = "value of distance")
})