Nothing
wdItemize <-
function (Gallery=1,Template=1, wdapp = .R2wd)
{
wdsel <- wdapp[['Selection']]
ttt<-(wdapp[["ListGalleries"]]$Item(Gallery))[["ListTemplates"]]$Item(Template)
wdsel[["Range"]][["ListFormat"]]$ApplyListTemplateWithLevel(ttt)
}
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.