Developing Data Products - Week 2

Visualising my running track with R and Leaflet

# Load libraries
if (!require(leaflet)) install.packages('leaflet','rgdal')
library(leaflet)
library(rgdal)

# Load GPX file
gpx_file <- "activity_1062102506.gpx"
track <- readOGR(gpx_file, layer = "tracks", verbose = FALSE)
track_coords <- readOGR(gpx_file, layer = "track_points", verbose = FALSE)
first <- head(coordinates(track_coords),1)
last <- tail(coordinates(track_coords),1)

map <- leaflet() %>% 
  # Add tiles
  addProviderTiles("OpenStreetMap.Mapnik", group = "Road map") %>%
  addProviderTiles("Esri.WorldImagery", group = "Satellite") %>%
  
  # Add markers
  addMarkers(first[1], first[2]) %>%
  addMarkers(last[1], last[2]) %>%
    
  # Add legend
  addLegend(position = 'bottomright',opacity = 0.4, 
            colors = 'blue', 
            labels = track$name) %>%
  
  # Layers control
  addLayersControl(position = 'bottomright',
    baseGroups = c("Road map", "Satellite"),
    overlayGroups = c("Running route"),
    options = layersControlOptions(collapsed = FALSE)) %>%

  # Add polylines
  addPolylines(data=track, group='Running route')

map