inst/tinytest/test_internals_rgrid.R

# Test rgrid()
loc <- x_sf[1,]
dmax <- 2000
res <- 30
# rgrid_out <- osrm:::rgrid(loc, dmax, res)
# saveRDS(rgrid_out, 'inst/tinytest/rgrid_out.rds')
rgrid_out <- osrm:::rgrid(loc, dmax, res)
expect_equivalent(rgrid_out, readRDS("rgrid_out.rds"))

Try the osrm package in your browser

Any scripts or data that you put into this service are public.

osrm documentation built on March 31, 2023, 11:55 p.m.