tests/testthat/test_generateParagraphCR.R

context("generateParagraphCR")
n <- 7
s <- generateParagraphCR(LETTERS[1:n])
test_that("generateParagraphCR", {
  expect_length(s, 1L)
  expect_equal(stringr::str_count(s, '\\\\cr'), n - 1L)
})

Try the wyz.code.rdoc package in your browser

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

wyz.code.rdoc documentation built on Oct. 6, 2021, 9:07 a.m.