Nothing
context("generateParagraph")
n <- 7
s <- generateParagraph(LETTERS[1:n])
p <- generateParagraph(LETTERS[1:n], addFinalSeparator_b_1 = TRUE)
test_that("generateParagraph", {
expect_length(s, 1L)
expect_equal(stringr::str_count(s, '\n'), n - 1L)
expect_equal(stringr::str_count(p, '\n'), n)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.