pierreroudier

library(sf)
library(mapview)

sf::st_layers('zzz.gpx')
my_tracks_points  <- sf::st_read('zzz.gpx', 'track_points')
my_tracks_line <- sf::st_read('zzz.gpx', 'tracks')

m1 <- mapview(my_tracks_line, map.types = "Esri.WorldImagery")
m2 <- mapview(my_tracks_points, zcol = 'ele', legend = TRUE)