Nothing
minimalPrint = function(object)
{
msg = sprintf('An object of class "%s"
Slots: ', class(object))
slots = paste(slotNames(object), collapse = ", ")
cat(paste0(msg, slots, "\n\n"))
}
setMethod("show", "Schedule", minimalPrint)
setMethod("show", "GeneratedCode", minimalPrint)
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.