Nothing
factor_var <- iris$Species
factor_var_json <- paste0("[\"", paste0(as.character(factor_var), collapse="\",\""),
"\"]")
expect_equal(to_json(factor_var), factor_var_json)
expect_equal(to_json(factor_var[1], auto_unbox=TRUE), "\"setosa\"")
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.