Nothing
context("table_getLocationID")
test_that("correct locationID is returned", {
locationTbl <- get(data("wa_monitors_500"))
locationID <- wa_monitors_500$locationID
longitude <- wa_monitors_500$longitude
latitude <- wa_monitors_500$latitude
testID <- table_getLocationID(locationTbl, longitude, latitude, distanceThreshold = 1000)
expect_equal(locationID, testID)
})
test_that("radius works", {
locationTbl <- get(data("wa_monitors_500"))
locationID <- wa_monitors_500$locationID
longitude <- wa_monitors_500$longitude + 0.01 # ~ 780 m east
latitude <- wa_monitors_500$latitude + 0.01 # ~ 780 m north
allNA <- rep(as.character(NA), length(locationID))
testID <- table_getLocationID(locationTbl, longitude, latitude, distanceThreshold = 1000)
expect_equal(allNA, testID)
testID <- table_getLocationID(locationTbl, longitude, latitude, distanceThreshold = 10000)
expect_equal(locationID, testID)
})
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.