tests/testthat/test-coords.R

In poissonconsulting/poisspatial: Spatial Functions

test_that("ps_coords_to_sfc when missnig values", {
  x <- data.frame(X = c(1,1,10), Y = c(1,10,1))
  x$Row <- 2:4

  y <- ps_coords_to_sfc(x, crs = 28992, activate = FALSE)

  x$X[2] <- NA
  y2 <- ps_coords_to_sfc(x, crs = 28992, activate = FALSE)
  expect_identical(y[c(1,3),], y2[c(1,3),])
  expect_identical(y[,1], y2[,1])
  expect_identical(y2$geometry[[2]], structure(c(NA_real_, NA_real_), class = c("XY", "POINT", "sfg"
  )))
})