tests/testthat/test-find_data.R

In RobinCar2: ROBust INference for Covariate Adjustment in Randomized Clinical Trials

test_that("find_data works for glm", {
  expect_identical(
    find_data(fit_glm),
    fit_glm$data
  )
})

test_that("find_data fails for lm", {
  expect_error(
    find_data(fit_lm),
    "data must be provided explicitly for lm objects"
  )
})