Nothing
.ctrlSetup <- function(innerCtrl, outerCtrl)
{
if(length(outerCtrl))
{
namOut <- names(outerCtrl)
namIn <- names(innerCtrl)
if (length(noNms <- namOut[! namOut %in% namIn]))
warning("unknown names in control list: ", paste(noNms, collapse = ", "), ". They will not be used")
if(length(outerCtrl)) innerCtrl[namOut] <- outerCtrl
}
return(innerCtrl)
}
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.