Nothing
test_that("encoding conversion works", {
skip_on_os("windows")
x <- rawToChar(as.raw(177))
expect_equal(str_conv(x, "latin1"), "±")
})
test_that("check encoding argument", {
expect_error(str_conv("A", c("ISO-8859-1", "ISO-8859-2")), "single string")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.