if (FALSE) {
# Inputs are data frames
apotheke.df <- read.csv(system.file("csv/apotheke.csv", package = "osrm"))
# Travel time matrix
distA <- osrmTable(loc = apotheke.df[1:50, c("lon", "lat")])
# First 5 rows and columns
distA$durations[1:5, 1:5]
# Travel time matrix with different sets of origins and destinations
distA2 <- osrmTable(
src = apotheke.df[1:10, c("lon", "lat")],
dst = apotheke.df[11:20, c("lon", "lat")]
)
# First 5 rows and columns
distA2$durations[1:5, 1:5]
# Inputs are sf points
library(sf)
apotheke.sf <- st_read(system.file("gpkg/apotheke.gpkg", package = "osrm"),
quiet = TRUE
)
distA3 <- osrmTable(loc = apotheke.sf[1:10, ])
# First 5 rows and columns
distA3$durations[1:5, 1:5]
# Travel time matrix with different sets of origins and destinations
distA4 <- osrmTable(src = apotheke.sf[1:10, ], dst = apotheke.sf[11:20, ])
# First 5 rows and columns
distA4$durations[1:5, 1:5]
# Road distance matrix with different sets of origins and destinations
distA5 <- osrmTable(
src = apotheke.sf[1:10, ], dst = apotheke.sf[11:20, ],
measure = "distance"
)
# First 5 rows and columns
distA5$distances[1:5, 1:5]
}
Run the code above in your browser using DataLab