Nothing
context("Checking group")
test_that("group adds boundaries on either end",{
expected <- c("(A)", "(B)", "(C)", "(D)", "(E)", "(F)", "(G)", "(H)", "(I)",
"(J)")
expect_equivalent(group(LETTERS[1:10]), expected)
})
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.