inst/tinytest/test_RandomEncounters.R

In grimbough/fitFileR: Read FIT files using only native R code

## testing files that have been sent via github issues
## this should only be run locally, and not uploaded

library(FITfileR)

files <- list.files( "~/Projects/personal/FITfileR/inst/extdata/RandomEncounters",
                     full.names = TRUE)

# for(f in files) {
#     expect_silent(
#       fit <- readFitFile(f)
#     )
# }

# for(f in files) {
#  message(f)
#         fit <- readFitFile(f)
# 
# }