10 minutes – r.iresmi.net

Author

Michaël

Published

2025-11-13

Modified

2025-11-13

Montage of various clocks showing tens — 10:10:10 on 10/10/10 - “Give Me A Little More Time” – CC-BY-NC-SA by Jill Clardy

Day 13 of 30DayMapChallenge: « 10 minute map » (previously).

Where can you go in 10 minutes (by car) from Les Minutes?

library(osrm)
library(leaflet)
library(glue)

Data

We use {osrm} to build the isochrone. The service is based on OpenStreetMap data.

loc <- c(4.1485138, 45.8725235)
isochrone <- osrmIsochrone(loc = loc, 
                           breaks = 10, res = 50)

Easy…

Map

Easily too, and fast with {leaflet}.

isochrone |> 
  leaflet() |> 
  addTiles(attribution = glue("<a href='https://r.iresmi.net'>r.iresmi.net</a> – {Sys.Date()}. Data OSRM &amp; <a href='https://www.openstreetmap.org/copyright'>© OpenStreetMap</a>, ODbL ; <a href='https://openstreetmap.org/fixthemap'>Fix the map</a>")) |> 
  addPolygons() |> 
  addAwesomeMarkers(lng = loc[1], lat = loc[2])

Figure 1: Where can you go in 10 minutes (by car) from Les Minutes?

In less than 10 minutes…

---
title: "10 minutes"
description: "Day 13 of 30DayMapChallenge. 10 minutes map"
author: "Michaël"
date: "2025-11-13T21:00:00"
date-modified: last-modified
categories:
  - R
  - 30DayMapChallenge
  - spatial
  - datavisualization
  - OSM
draft: false
freeze: true
editor_options:
  chunk_output_type: console
chunk_output_type: console
execute:
  eval: true
  message: false
---

[![10:10:10 on 10/10/10 - "Give Me A Little More Time" -- CC-BY-NC-SA by Jill Clardy](images/5069059182_7f3f16f530_c.jpg){fig-alt="Montage of various clocks showing tens"}](https://www.flickr.com/photos/jillclardy/5069059182/)

Day 13 of [30DayMapChallenge](https://30daymapchallenge.com/): « 10 minute map » ([previously](/#category=30DayMapChallenge)).

Where can you go in 10 minutes (by car) from [Les Minutes](https://www.openstreetmap.org/node/3470113293)?

```{r}
#| label: setup

library(osrm)
library(leaflet)
library(glue)
```

## Data

We use [{osrm}](https://github.com/riatelab/osrm) to build the isochrone.
The [service](https://project-osrm.org/) is based on OpenStreetMap data.

```{r}
#| label: data
#| cache: true

loc <- c(4.1485138, 45.8725235)
isochrone <- osrmIsochrone(loc = loc, 
                           breaks = 10, res = 50)
```

Easy...

## Map

Easily too, and fast with [{leaflet}](https://github.com/rstudio/leaflet).

```{r}
#| label: fig-map
#| fig-cap: Where can you go in 10 minutes (by car) from Les Minutes?
#| fig-alt: An openstreetmap slippy map with a 10 minutes isochrone from Les Minutes
#| out-width: 100%

isochrone |> 
  leaflet() |> 
  addTiles(attribution = glue("<a href='https://r.iresmi.net'>r.iresmi.net</a> – {Sys.Date()}. Data OSRM &amp; <a href='https://www.openstreetmap.org/copyright'>© OpenStreetMap</a>, ODbL ; <a href='https://openstreetmap.org/fixthemap'>Fix the map</a>")) |> 
  addPolygons() |> 
  addAwesomeMarkers(lng = loc[1], lat = loc[2])
```

In less than 10 minutes...