test_that("pull_unique works", {
df <- data.frame(let = rep(letters, 2), num = rep(c(1:26), 2))
expect_equal(pull_unique(df, 1), letters)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.