Nothing
context("as_json")
test_that("json class set", {
js <- "{x:1}" ## Invalid
# expect_error( as.json(js), "Invalid JSON" )
js <- '{"x":1}'
js <- as.json(js)
expect_equal( attr(js, "class"), "json" )
js <- '{"x":[1,2,3]}'
js <- pretty_json(js)
expect_equal( attr(js, "class"), "json" )
})
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.