test_that("multiSubstitute() works", {
expect_identical(multiSubstitute("abc", list(a = "b", b = "c")), "ccc")
expect_identical(multiSubstitute("abc", list(a = "b", "^b" = "c")), "cbc")
expect_output(multiSubstitute("abc", list(a = "A"), dbg = TRUE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.