test_that("stringList() works", {
expect_equal(stringList(c("a", "b")), "'a', 'b'")
expect_equal(stringList(c("a", "b"), collapse = ","), "'a','b'")
expect_equal(stringList(c("a", "b", "c"), "", "@"), "a@b@c")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.