## Not run:
# ride_files <- list.files(
# system.file("extdata", package = "elpatron"),
# full.names = TRUE)
#
# (f <- sample(ride_files, 1))
# import_ride(f)
#
# ## If you want all data from the .fit format...
# f <- grep("fit$", ride_files, value = TRUE)
# import_ride(f, raw = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab