Nothing
if(interactive()) {
w <- gwindow("Box containers")
g <- gvbox(cont=w) # ggroup(horizonta=FALSE, ...)
nb <- gnotebook(cont=g); gbutton("one", label="one", cont=nb)
gframe("Frame", cont=g)
pg <- gpanedgroup(cont=g); gbutton("one", cont=pg); gbutton("two", cont=pg)
}
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.