Nothing
options(java.parameters = '-Xmx16G')
# library(r5r)
devtools::load_all(".")
library(data.table)
data_path <- system.file("extdata/spo", package = "r5r")
r5r_core <- setup_r5(data_path = data_path)
# load origin/destination points
points <- fread(file.path(data_path, "spo_hexgrid.csv"))
# r5r_core$setCsvOutput(here::here("csv"))
# Calculate 3 TTMs, one for each minute of the TTM with the time_window setting
system.time(
ttm <- travel_time_matrix(r5r_core,
origins = points[id == "89a8100c603ffff",], #[id == "89a901288c3ffff",],
destinations = points[id == "89a8100c2b3ffff"], #[id == "89a90129953ffff",],
mode = c("WALK", "TRANSIT"),
max_trip_duration = 60,
time_window = 30,
percentiles = c(25, 50, 75),
departure_datetime = lubridate::mdy_hm("4/19/19 12:00pm"),
draws_per_minute = 5,
verbose = F,
progress = T,
breakdown = T)
)
ttm[from_id != to_id,] |>head(100) |> View()
ttm %>%
arrange(departure_time) %>%
write_csv("ttm_breakdown_full.csv")
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.