Nothing
w <- 2.5; x <- c(1,2); y <- "foo"; z <- TRUE; abc <- letters[1:3]
mode(w); length(w)
mode(x); length(x)
mode(y); length(y)
y[1]; y[2] # not an error to ask for y[2]
mode(z); length(z)
abc
mode(abc); length(abc)
abc[3]
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.