tests/testthat/test-get-section.R

In logos: Access to the Hebrew, Greek, and English Version of the Bible

bible <- data.frame(
  book = c("Genesis", "Genesis", "Genesis", "Genesis"),
  chapter = c(1, 1, 1, 1),
  verse = c(1, 2, 3, 4),
  text = c("In the beginning God created...",
           "The earth was without form...",
           "And God said, 'Let there be light'...",
           "And there was light.")
)