Nothing
test_that("Encoding Factor Objects", {
expect_identical(fromJSON(toJSON(iris$Species)), as.character(iris$Species));
expect_identical(fromJSON(toJSON(iris$Species[1])), as.character(iris$Species[1]));
expect_equal(fromJSON(toJSON(iris$Species, factor="integer")), structure(unclass(iris$Species), levels=NULL));
});
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.