tests/testthat/helper-subject-id.R

In statsExpressions: Tidy Dataframes and Expressions with Statistical Details

# Supplying `subject.id` for paired data should give the same result as
# relying on the row order of data already sorted by subject.
expect_subject_id_invariance <- function(.f, data, ...) {
  set.seed(123)
  with_id <- .f(
    data = data,
    x = condition,
    y = score,
    subject.id = id,
    paired = TRUE,
    ...
  )

  set.seed(123)
  sorted_by_id <- .f(
    data = arrange(data, id),
    x = condition,
    y = score,
    paired = TRUE,
    ...
  )

  expect_identical(with_id, sorted_by_id)
}