R/read_gpx.R

In avallecam/epihelper: Miscelanea of Custom Funtions From Epidemiology

#' Read gpx files
#'
#' @description Read gpx files from different GPS tracking devices
#'
#' @param list list of gpx files. easier if they came from a list.files() output
#'
#' @return dataset of geolocation points with waypoint name and complementary information.
#'
#'@export

read_gpx <- function(list) {

  allgpx <- list

  col <- sf::st_read(dsn = allgpx[1], layer="waypoints",verbose = F) %>%
    as.tibble() %>%
    select(time,name,desc,contains("coords")) %>%
    rename("lon"=coords.x1,
           "lat"=coords.x2) %>%
    mutate(time=lubridate::ymd_hms(time),
           id=allgpx[1])

  # loop
  alltrk <- col[FALSE,]
  for (i in 1:length(allgpx)) {
    #gpx.wpt <- sf::st_read(dsn = allgpx[i], layer="waypoints")
    #gpx.wpt
    gpx.trk <- sf::st_read(dsn = allgpx[i], layer="waypoints",verbose = F) %>%
      as.tibble() %>%
      select(time,name,desc,contains("coords")) %>%
      rename("lon"=coords.x1,
             "lat"=coords.x2) %>%
      mutate(time=lubridate::ymd_hms(time),
             name=stringr::str_to_lower(name),
             desc=stringr::str_to_lower(desc),
             id=allgpx[i])

    alltrk <- alltrk %>% dplyr::union(gpx.trk) %>% arrange(name)
  }

  return(alltrk)

}