if (FALSE) {
# Get a list of all GPX export files in a directory tree
gpx_export_files <- list.files(
"/path/to/gpx/exports/",
pattern = "\\.gpx$",
full.names = TRUE,
recursive = TRUE
)
# Read in all files and combine them into a single data frame
rides <- do.call(rbind, lapply(gpx_export_files, read_gpx))
}
Run the code above in your browser using DataLab