R/obsolete/isochrone-response.R

In crazycapivara/graphhopper-r: An R Interface to the 'GraphHopper' Directions API

make_isochrone <- function(resp) {
  feature_collection <- list(
    type = "FeatureCollection", features = resp$polygons
  ) %>%
    toJSON_st_read()
  # list(
  #   polygons = toJSON_st_read(feature_collection)
  # )
}