## Not run:
# fl <- system.file("extdata/example_files.tar.gz",
# package = "cycleRtools")
# fls <- untar(fl, list = TRUE)
# untar(fl) # Extract to working directory.
#
# dat <- lapply(fls, read_ride, format = TRUE, CP = 300, sRPE = 5)
#
# file.remove(fls)
# ## End(Not run)
Run the code above in your browser using DataLab