tests/testthat/test-table_initializeExisting.R

In MazamaLocationUtils: Manage Spatial Metadata for Known Locations

context("table_initializeExisting")

test_that("existing locationID is ignored", {
  
  skip_on_cran()
  skip_on_travis()
  
  initializeMazamaSpatialUtils()
  data("wa_airfire_meta")
  
  meta <-
    dplyr::as_tibble(wa_airfire_meta[1:3,]) %>%
    dplyr::mutate(
      locationID = location_createID(
        .data$longitude, 
        .data$latitude,
        algorithm = "geohash",
        precision = 10
      )
    )
  
  locationTbl <- table_initializeExisting(meta, distanceThreshold = 500)
  
  expect_equal(nrow(locationTbl), 3)
  
})