tests/testthat/test-find_near.R

test_that("find_near works", {
  st <- st_met2176_hourly
  p <- c(116.4, 39.9)
  s = find_near(p, st)
  expect_equal(nrow(s), 1)
})
kongdd/MissInfo documentation built on Jan. 14, 2024, 2:22 a.m.