test_that("cn function works properly",{
x <- "test"
y <- ""
expect_equal(cn(x,y),"")
x <- "test"
y <- "it"
expect_equal(cn(x,y),"testit")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.