calc_cum_distance <- function(lon, lat) {
vapply(seq_along(lat), function(i) {
if (i == 1) return(0)
prev_coord <- c(lon[i-1], lat[i-1])
curr_coord <- c(lon[i], lat[i])
return(geosphere::distm(prev_coord, curr_coord, fun = geosphere::distHaversine))
}, double(1)) -> dist_btwn_pts
return(cumsum(dist_btwn_pts))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.