context("str_permute")
test_that("LETTERS", {
ALPHABET <- paste0(LETTERS, collapse = "")
permuted <- str_permute(rep(ALPHABET, 3), 5:6, 3:4)
expect_identical(permuted, c("EFCD", "EFCD", "EFCD"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.