Nothing
test_that("escaping and parsing of special characters", {
#create random strings
mychars <- c('a', 'b', " ", '"', "\\", "\t", "\n", "'", "/", "#", "$");
createstring <- function(length){
paste(mychars[ceiling(runif(length, 0, length(mychars)))], collapse="")
}
#generate 1000 random strings
for(i in 1:200){
x <- createstring(i);
expect_equal(x, fromJSON(toJSON(x)));
expect_equal(x, fromJSON(toJSON(x, pretty=TRUE)));
y <- setNames(list(123), x)
expect_equal(x, fromJSON(toJSON(x, pretty=TRUE)));
}
});
test_that("escape solidus", {
expect_equal(toJSON("foo/bar/baz"), '["foo/bar/baz"]')
expect_equal(toJSON('<script>evil()</script>'), '["<script>evil()<\\/script>"]')
expect_equal(toJSON('/', auto_unbox = TRUE), '"/"')
expect_equal(toJSON('</', auto_unbox = TRUE), '"<\\/"')
# Mixed encoding
x <- c('\xFD\xDD\xD6\xF0\n', '\u1F602\n')
Encoding(x) <- c("latin1", "UTF-8")
expect_equal(toJSON(x), '["\u00FD\u00DD\u00D6\u00F0\\n","\u1F602\\n"]')
# Escape solidus by minify
expect_equal(unclass(minify('["/"]')), '["/"]')
expect_equal(unclass(minify('["</"]')), '["<\\/"]')
})
test_that("BOM is being ignored", {
expect_warning(x <- fromJSON('\uFEFF[123]'), "mark")
expect_equal(x, 123)
con <- rawConnection(charToRaw('\uFEFF[123]'))
expect_warning(fromJSON(con), "mark")
close(con)
expect_equal(x, 123)
})
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.