Diese Webseite verwendet Cookies

Wir verwenden Cookies, um das Nutzungserlebnis zu verbessern. Wählen Sie aus, welche Cookies Sie uns erlauben. Weitere Informationen zu unseren Cookie-Richtlinien finden Sie in unseren Datenschutzbestimmungen.
Zurück
23.04.2018 Alexander Zipf

Openrouteservice bietet neue Bibliothek und Unterstützung für "R" an

Openrouteservice bietet Bibliothek und Unterstützung  für "R" an

Tolle Neuigkeiten für alle Fans des beliebten Open Source Statistiksystems "R":

Das HeiGIT hat ein Paket für R entwickelt, mit dem Sie die openrouteservice API leicht von aus R abfragen können. Es ermöglicht Ihnen alle folgenden Dienste einfach zu nutzen:

--  directions (Routenplanung)

-- geocode

-- isochrones (Erreichbarkeitsanalyse)

-- time-distace matrix

-- pois (Points of Interest)

Sie müssen sich nicht mit der Verarbeitung von Straßennetzdaten herumschlagen, sondern nutzen direkt die aktuellsten OpenStreetMap-Daten von ORS - weltweit! Die neueste Version kann direkt von GitHub installiert werden mittels:

devtools :: install_github ("GIScience / openrouteservice-r")

Es ist wirklich einfach: wenn Sie z.B. eine Route von Heidelberg nach Krakau suchen, brauchen Sie nur ein paar Zeilen Code. Mittels leaflet ist es sogar möglich, die Ergebnisse direkt in R zu visualisieren. Testen Sie das Beispiel. Weitere Beispiele und Dokumentation finden Sie unter https://giscience.github.io/openrouteservice-r/articles/openrouteservice.html

library("openrouteservice")

# one-time API key set-up
# ors_api_key("<your-api-key>")

# query for coordinates
locations <- lapply(c("Heidelberg", "Kraków"), ors_geocode)
coordinates <- lapply(locations, function(x) x$features[[1]]$geometry$coordinates)

# find route
route <- ors_directions(coordinates, format="geojson")

# route length in kilometres and duration in hours
unlist(route$features[[1]]$properties$summary) / c(1000, 3600)
##    distance    duration
## 1051.861300    9.205167

# draw on map using leaflet
library(leaflet)

leaflet() %>%
  addTiles() %>%
  addGeoJSON(route, fill=FALSE) %>%
  fitBBox(route$bbox)

Verfasst um 17:54 Uhr

» Permalink   

Keine Einträge vorhanden.
Keine Einträge vorhanden.
 
TOP