tests/testthat/test_subsample_data.R

In breathtestcore: Core Functions to Read and Fit 13c Time Series from Breath Tests

test_that("Subsample uses denser steps early and wider steps later", {
  d = simulate_breathtest_data(
    n_records = 1,
    first_minute = 1,
    step_minute = 1
  )$data
  comment(d) = "comment"
  d1 = subsample_data(cleanup_data(d), 15)
  tt = as.integer(table(diff(d1$minute)))
  expect_equal(comment(d), "comment")
  expect_equal(tt, c(6, 3, 1, 4))
})