The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

azuremapsr

The goal of azuremapsr is to provide an R interface to the Microsoft Azure Maps REST APIs. This package simplifies the process of authenticating, building requests, and parsing responses for various geospatial services, starting with route directions.

Installation

You can install the development version of azuremapsr from GitHub with:

# install.packages("pak")
pak::pak("juanfonsecaLS1/azuremapsr")

Authentication

Before using the package, you need a subscription key from the Azure Maps service. You can find instructions on how to obtain one here.

Once you have your key, you can set it for your R session using the set_azuremaps_token() function:

library(azuremapsr)
set_azuremaps_token("YOUR_API_KEY_HERE")

For a more permanent solution, you can store the key as an environment variable named azure_maps in your .Renviron file. You can open this file for editing by running usethis::edit_r_environ() and adding the line azure_maps='YOUR_API_KEY_HERE'.

Example

This example shows how to get the fastest driving route between two points including a waypoint.

library(azuremapsr)
library(sf)

# This example will not run unless an API key is set.
# Replace "YOUR_API_KEY_HERE" with your actual key.
# set_azuremaps_token("YOUR_API_KEY_HERE")

# Define origin, destination, and waypoint
origin <- c(-122.3321, 47.6062)  # Seattle
destination <- c(-122.0369, 47.6609) # Redmond
waypoints <- c(-122.20687, 47.612002) # Bellevue

# Define route parameters
params <- list(
  optimizeRoute = "fastestWithTraffic",
  routeOutputOptions = "routePath",
  travelMode = "driving"
)

# Get the route (requires a valid API key to be set!!!)

sample_response <-   req_route_directions(origin, destination, waypoints, params)

Routes can be extracted from the response with the get_routes function

sf_routes <- get_routes(sample_response)

plot(sf_routes$geometry,col = c("blue","red"))

These are some of the attributes returned by the service:

sf_routes |> names()

[1] "trafficCongestion"        "distanceInMeters"        
[3] "durationInSeconds"        "arrivalAt"               
[5] "departureAt"              "durationTrafficInSeconds"
[7] "type"                     "legs"                    
[9] "geometry"                

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.