allow vector with multiple times for parameter "end_time" in gtfs_isochrone about gtfsrouter HOT 3 CLOSED

devtools::load_all (".", export_all = TRUE)
#> Loading gtfsrouter
gtfs <- extract_gtfs ("vbb.zip")
#> ▶ Unzipping GTFS archive
#> ✔ Unzipped GTFS archive
#> ▶ Extracting GTFS feed✔ Extracted GTFS feed 
#> ▶ Converting stop times to seconds✔ Converted stop times to seconds 
#> ▶ Converting transfer times to seconds✔ Converted transfer times to seconds
gtfs <- gtfs_timetable (gtfs)
#> Day not specified; extracting timetable for Monday
stn <- "Berlin, Rohrdammbrücke"
start_time <- 3600
end_time <- start_time + 600

#x <- gtfs_isochrone (gtfs, from = stn, start_time = start_time, end_time = end_time)
# code from gtfs_isochrone function:
from <- stn
from_is_id <- FALSE

gtfs_cp <- data.table::copy (gtfs)
start_time <- convert_time (start_time)
end_time <- convert_time (end_time)
gtfs_cp$timetable <- gtfs_cp$timetable [departure_time >= start_time, ]
start_stns <- station_name_to_ids (from, gtfs_cp, from_is_id)
start_stns
#> [1]   492 27286 28339

#isotrips <- get_isotrips (gtfs_cp, start_stns, start_time, end_time)
# code from get_isotrips function:
stns <- rcpp_csa_isochrone (gtfs$timetable, gtfs$transfers,
                            nrow (gtfs$stop_ids), nrow (gtfs$trip_ids),
                            start_stns, start_time, end_time)
stns
#> [[1]]
#> [1] 27286 27287 28819 27345 27346 27347 33326 33328 33330
#> 
#> [[2]]
#> [1] 25933 25933 25933 25933 25933 25933 50413 50413 50413
#> 
#> [[3]]
#> [1] 27286 27287 28819 27345 27346 27347 27348 27293 27294
#> 
#> [[4]]
#> [1] 25933 25933 25933 25933 25933 25933 25933 46653 46653
#> 
#> [[5]]
#> [1] 27286 27287 28819 27345 28559 29453 30470 28844 29376
#> 
#> [[6]]
#> [1] 25933 25933 25933 25933 45673 45673 45673 45673 45673
#> 
#> [[7]]
#> [1] 27286 27287 28819 27345 27346 27347 27348 27293 27319
#> 
#> [[8]]
#> [1] 25933 25933 25933 25933 25933 25933 25933 46653 25933
#> 
#> [[9]]
#> [1] 20820