tests/testthat/test-byosrmRoute.R

test_that("byosrmRoute works", {
        library(osrm)
        src_dst <- as.data.frame(cbind(576626, 6143649, 562248, 6142596))
        a <- byosrmRoute(src_dst, crs = sp::CRS("+init=epsg:32721"))
        expect_equal(ncol(a), 6)
})
RichDeto/EPP documentation built on May 5, 2022, 10:23 p.m.