context("Utilities")
test_that("deduplicate removes duplicates", {
a <- list(a = letters[1:2], b = letters[1:2], c = letters[2:3])
expect_identical(deduplicate(a), a[c(1, 3)])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.