Nothing
setMethod("asJSON", "factor", function(x, factor = c("string", "integer"), keep_vec_names = FALSE, ...) {
# validate
factor <- match.arg(factor)
# dispatch
if (factor == "integer") {
# encode factor as enum
asJSON(unclass(x), ...)
} else {
# encode as strings
xc <- as.character(x)
if(isTRUE(keep_vec_names)){
names(xc) <- names(x)
}
asJSON(xc, keep_vec_names = keep_vec_names, ...)
}
})
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.