test_that(".HandleUTF8", {
expect_identical(.HandleUTF8("◨"), "◨")
expect_identical(.HandleUTF8("abc"), paste0("&#", 97:99, ";", collapse = ""))
# This could give trouble on a German installation on Windows
#-expect_identical(.HandleUTF8("€"), "€")
expect_identical(.HandleUTF8("€"), "€") # strangely in 'testthat' it works
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.