Nothing
setMethod("asJSON", "scalar", function(x, collapse, ...) {
# TODO: There must be a way to do this with NextMethod()
if (length(class(x)) > 1) {
class(x) <- class(x)[-1]
} else {
x <- unclass(x)
}
# Print JSON without []
return(asJSON(x, collapse = FALSE, ...))
})
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.