Nothing
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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.