Nothing
panel <- rp.control(title="Menu example", size=c(200,50))
rp.menu(panel, option, labels=list(list("File","Quit"), list("Edit","Copy","Cut","Paste")), "None", function(panel) { rp.messagebox(panel$option); panel }, font="Arial", foreground="Navy", background="Green")
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.