Nothing
library(RJSONIO)
a = array(1:(5*7*9), c(5, 7, 9))
o = toJSON(a)
isValidJSON(I(o))
b = fromJSON(I(o))
toJSON(table(1:3))
toJSON(table(1:3, 1:3))
#z = apply(a, 3, function(x, dim) toJSON(x))
#toJSON(array(1:8,c(2,2,2)))
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.