Nothing
# #'@rdname internal
# leap.year <- function(x){
# if (inherits(x, 'POSIXt'))
# x <- as.POSIXlt(x)$year + 1900
# x%%4 == 0 & (x%%100 != 0 | x%%400 == 0)
# }
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.