Nothing
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)
})
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.