tests/testthat/test-sc_read.R

In stepcount: Estimate Step Counts from 'Accelerometry' Data

testthat::test_that("reading in a file works", {
  file = system.file("extdata/P30_wrist100.csv.gz", package = "stepcount")
  if (stepcount_check()) {
    out = sc_read(file)
    testthat::expect_true(is.list(out))
    testthat::expect_named(out, c("data", "info"))
    testthat::expect_true(is.data.frame(out$data))
  }
})