Nothing
context("encoding")
test_that("R objects can be encoded, decoded", {
data <- list(a = 1L, b = 2L, c = "3")
encoded <- base64_encode_object(data)
decoded <- base64_decode_object(encoded)
expect_equal(data, decoded)
})
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.