tests/testthat/test-chunk_texts.R

test_that("chunking works", {

  enron <- readRDS(testthat::test_path("data", "enron.rds"))

  chunked <- chunk_texts(enron, 100)

  testthat::expect_snapshot(chunked)

  testthat::expect_snapshot(quanteda::docvars(chunked))

})

Try the idiolect package in your browser

Any scripts or data that you put into this service are public.

idiolect documentation built on Sept. 11, 2024, 5:34 p.m.