Nothing
test_that("route_matrix works", {
# Set dummy key
set_key("dummy_api_key")
# Load package example data
data(poi)
# Input checks
expect_error(route_matrix(origin = c(1, 2, 3), destination = poi), "'origin' must be an sf or sfc object.")
expect_error(route_matrix(origin = c("character", NA), destination = poi), "'origin' must be an sf or sfc object.")
expect_error(route_matrix(origin = poi, destination = poi, datetime = "not_POSIXct"))
expect_error(route_matrix(origin = poi, destination = poi, transport_mode = "not_a_transport_mode"))
expect_error(route_matrix(origin = poi, destination = poi, routing_mode = "not_a_routing_mode"))
expect_error(route_matrix(origin = poi, destination = poi, traffic = "not_a_bool"), "'traffic' must be a 'boolean' value.")
expect_error(route_matrix(origin = poi, destination = poi, url_only = "not_a_bool"), "'url_only' must be a 'boolean' value.")
# Test with API response mock
with_mock(
"hereR:::.async_request" = function(url, rps) {
hereR:::mock$route_matrix_response
},
r_mat <- route_matrix(origin = poi),
# Tests
expect_is(r_mat, "data.frame"),
expect_equal(nrow(r_mat), nrow(poi)**2)
)
})
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.