tests/testthat/test-ojo_collect.R

In openjusticeok/ojodb: Analyze Data from the Open Justice Oklahoma Database

test_that("ojo_collect works in interactive mode", {
  skip_on_runiverse()

  expect_no_error({
    ojo_tbl("case") |>
      head(1) |>
      ojo_collect()
  })

  expect_s3_class(
    ojo_tbl("case") |>
      head(1) |>
      ojo_collect(),
    "tbl_df"
  )

  withr::deferred_run(envir = ojo_env())
})