test_that("dePolish() just works", {
x <- .readLetterspl("utf-8")
expect_silent(
r <- dePolish(x$nat)
)
expect_identical(r, x$ascii)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.