New function to get all possible combinations of origin destination pairs about r5r

[franciscopasqual]

I managed to create the cross product of all origins and destinations pairs but still not sure on how to use that to run detailed_itineraires for all combinations. What would be the right arguments to do so?

[rafapereirabr]

please follow the example below:

library(r5r)
library(data.table)
library(dplyr)

# build transport network
data_path <- system.file("extdata/poa", package = "r5r")
r5r_core <- setup_r5(data_path = data_path, temp_dir = TRUE)


# Read points
origins <- read.csv(file.path(data_path, "poa_points_of_interest.csv"))[1:4,]
destinations <- read.csv(file.path(data_path, "poa_points_of_interest.csv"))[3:10,]

# get all possible combinations between origins and destinations
# function
get_all_od_combinations <- function(origins, destinations){
  
  # all possible id combinations
  base <- expand.grid(origins$id, destinations$id)
  
  # rename df
  setDT(base)
  setnames(base, 'Var1', 'idorig')
  setnames(base, 'Var2', 'iddest')
  
  # bring spatial coordinates from origin and destination
  base[origins, on=c('idorig'='id'), c('lon_orig', 'lat_orig') := list(i.lon, i.lat)]
  base[destinations, on=c('iddest'='id'), c('lon_dest', 'lat_dest') := list(i.lon, i.lat)]
  
  return(base)
}

df <- get_all_od_combinations(origins, destinations)

# select/rename columns for r5r input
all_orig <- dplyr::select(df, c('id'=idorig, 'lon'=lon_orig,'lat'=lat_orig))
all_dest <- dplyr::select(df, c('id'=iddest, 'lon'=lon_dest,'lat'=lat_dest))


# run r5r
departure_datetime <- as.POSIXct("13-05-2019 14:00:00", format = "%d-%m-%Y %H:%M:%S")
dit <- detailed_itineraries(r5r_core,
                            origins = all_orig,
                            destinations = all_dest,
                            mode = c("WALK", "TRANSIT"),
                            departure_datetime = departure_datetime,
                            max_walk_dist = 1000,
                            max_trip_duration = 30)

[rafapereirabr]

This is related to #224.

The dev version of the detailed_itineraries() function now has a new parameter all_to_all, which allows users to set whether they want to query routes between all origins to all destinations (all_to_all = TRUE) or to query. By default (FALSE), the functions queries routes between the the 1st row of origins to the 1st row of destinations, then the 2nd row of origins to the 2nd row of destinations, and so on.

[franciscopasqual]

@rafapereirabr how do I access the dev version? This new parameter would be really helpful.

[rafapereirabr]

You can install the dev verison with the code below:

  utils::remove.packages('r5r')

  devtools::install_github("ipeaGIT/r5r", subdir = "r-package")
  library(r5r)