R/calc_cum_distance.R

In elsage/GarConGPX: Loads Garmin Connect .gpx Files to DataFrame

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))
}