Nothing
lapply(dir("inst/tpl", pattern="\\.json$"), function(f)
{
objname <- sub("\\.json$", "", f)
obj <- jsonlite::fromJSON(file.path("inst/tpl", f), simplifyVector=FALSE)
assign(objname, obj, parent.env(environment()))
})
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.