Nothing
library(R2admb)
setwd(system.file("admbtests",package="R2admb"))
rr <- read_admb("catage")
stopifnot(length(rr$report)==336)
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.