tests/testthat/test-002-load-agd-settings.R

In chms: Accelerometer Processing Methods for Cycle 7 of the CHMS

testthat::test_that("Settings table loads successfully from sample .agd file", {
  # Skip if config not found
  testthat::skip_on_cran()
  testthat::skip_if_not(nzchar(config::get("agd_file")))

  # Load settings table
  settings <- load_agd_settings(config::get("agd_file"))

  # Run basic checks
  testthat::expect_s3_class(object = settings, class = "data.frame")
  testthat::expect_true(nrow(settings) > 0)
})