tests/testthat/helper-gutenberg_add_sections.R

expect_section_fill <- function(result, rows, value) {
  expect_equal(
    result$section[rows],
    rep(value, length(rows))
  )
}

Try the gutenbergr package in your browser

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

gutenbergr documentation built on March 15, 2026, 9:06 a.m.