Expedition Dolomites

Precies een jaar na mijn vorige grote fietsdoel, de Maratonna dles Dolimiti, heb ik in de laatste week van juni mijn allereerste bikepacking-avontuur ooit gedaan. En om het gelijk goed aan te pakken gelijk maar een van de zwaarste routes: de Expedition Dolomites! Ik ben nu wel benieuwd naar het fietsdoel van volgend jaar… 😅

Hieronder vind je een interactieve kaart met de door ons gefietste route (opgenomen met een Wahoo Element Roam), met start- en eindpunt bij Innsbruck.¹

Code

# Packages laden
library(tidyverse)
library(sf)
library(leaflet)
library(crosstalk)
library(leaflet.extras2)

# GPX-en inlezen
etappe_1 <- read_sf("gpx/Dolomieten_Expeditie_Etappe_1_.gpx", layer = "tracks") %>% 
  mutate(etappe = "Etappe 1", color = "red")
etappe_2 <- read_sf("gpx/Dolomieten_Expeditie_etappe_2.gpx", layer = "tracks") %>% 
  mutate(etappe = "Etappe 2", color = "blue")
etappe_3 <- read_sf("gpx/Dolomieten_Expeditie_etappe_3.gpx", layer = "tracks") %>% 
  mutate(etappe = "Etappe 3", color = "purple")
etappe_4 <- read_sf("gpx/Dolomieten_Expeditie_etappe_4_.gpx", layer = "tracks") %>% 
  mutate(etappe = "Etappe 4", color = "darkgreen")

# Koppelen en SharedData-object van maken
route <- bind_rows(etappe_1, etappe_2, etappe_3, etappe_4)

# SharedData voor gebruik crosstalk
shared_route <- SharedData$new(route)

# Kaart plotten
shared_route %>% 
  leaflet() %>% 
  addTiles() %>% 
  addAntpath(color = ~color, group = ~etappe) %>% 
  leaflet.extras2::addArrowhead(group = ~etappe, 
                                color = ~color,
                                options = list(frequency='80px', size='12px', fill=TRUE), 
                                stroke = FALSE) %>% 
  addLayersControl(
    overlayGroups = c("Etappe 1", "Etappe 2", "Etappe 3", "Etappe 4"),
    options = layersControlOptions(collapsed = FALSE)
  )

Een kaartje niet genoeg? Hier vind je óók nog een kort en onvolledig foto-overzicht van de tocht.

Nog vol goede moed staan we klaar voor de monstertocht

Onverhard langs de rivier

De fiets de berg op duwen

Het mooiste dat Jaap óóit had gezien!

Rest with a view

En nu?!

Jaap met op de achtergrond de Brenner Pass

Tussen de geitjes door

Voetnoten

1. Klik op het woord Code om de R-code te zien waarmee de data is ingelezen en de kaart is gegenereerd.