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)))
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.