При воспроизведении исторических изохрон, созданных с помощью API ORS - openrouteservice.org, у меня возникли проблемы с разрешением. Около 3 лет назад возвращенные изохроны имели более высокое разрешение, чем сегодня, и нет возможности манипулировать каким-либо параметром разрешения (насколько мне известно).
История ORS (3 года назад): более высокое разрешение 
Сегодня ORS: более низкое разрешение
library(leaflet)
library(openrouteservice)
coords <- c(9.4619375, 47.4776429)
isochrone_ors <- ors_isochrones(coords, range = 11*60)
leaflet() %>%
addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>%
addGeoJSON(geojson = isochrone_ors) %>%
fitBBox(isochrone_ors$bbox)
OSRM: сегодня
Я попытался воспроизвести изохроны, используя osrm::osrmIsochrone(). К сожалению, эта реализация osrm генерирует прямоугольные и частично дизъюнктные изохроны для довольно низких разрешений, что далеко от исторических ORS-изохрон.
Внимание: Используемый сервер http://router.project-osrm.org/ не очень стабилен
options(osrm.server = "http://router.project-osrm.org/", osrm.profile = "driving")
isochrone_osrm <- osrm::osrmIsochrone(loc = coords, breaks = c(0,11), res = 150)
leaflet() %>%
addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>%
addPolygons(data = isochrone_osrm)
Кто-нибудь из вас знает, как лучше воспроизвести исторические изохроны? Есть ли более подходящие пакеты или API?
