if (FALSE) {
departure_search <-
make_search(id = "public transport from Trafalgar Square",
departure_time = strftime(as.POSIXlt(Sys.time(), "UTC"), "%Y-%m-%dT%H:%M:%SZ"),
travel_time = 1800,
coords = list(lat = 51.507609, lng = -0.128315),
transportation = list(type = "public_transport"),
properties = list('travel_time', 'distance'))
arrival_search <-
make_search(id = "public transport to Trafalgar Square",
arrival_time = strftime(as.POSIXlt(Sys.time(), "UTC"), "%Y-%m-%dT%H:%M:%SZ"),
travel_time = 1800,
coords = list(lat = 51.507609, lng = -0.128315),
transportation = list(type = "public_transport"),
properties = list('travel_time', 'distance'))
result <-
time_filter_postcodes(
departure_searches = departure_search,
arrival_searches = arrival_search
)
}
Run the code above in your browser using DataLab