R/parse_tracks.R

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

parse_tracks <- function(trks, file_id) {
  lapply(seq_along(trks), function(i) {
    name    <- xml2::xml_find_all(trks[i], ".//name")[[1]]
    type    <- xml2::xml_find_all(trks[i], ".//type")[[1]]
    trk_pts <- xml2::xml_find_all(trks[i], ".//trkpt")

    return(list(trk_name = xml2::as_list(name)[[1]],
                trk_id   = paste0(file_id, '-', i), 
                type     = xml2::as_list(type)[[1]], 
                pts      = parse_points(trk_pts)))
  })
}