## Not run:
# ride_file <- system.file("extdata/lufbra.fit", package = "elpatron")
#
# parsed_ride <- import_ride(ride_file, make_laps = TRUE)
#
# ## Simple cleaning:
# clean_bikedata(parsed_ride)
#
# ## Keep the lap column:
# clean_bikedata(parsed_ride, lap)
#
# ## We can also make use of dplyr's select_helpers
# ## (see ?dplyr::select_helpers)
#
# library(dplyr, warn.conflicts = FALSE)
# clean_bikedata(parsed_ride, lap, contains("torque"))
#
# ## Trying to hold on to non-existent fields won't throw errors.
# clean_bikedata(parsed_ride, lap, contains("epo_concentration"))
# ## End(Not run)
Run the code above in your browser using DataLab