Nothing
years <- function(x) as.POSIXlt(x)$year + 1900
emptyDate <- function() .dateParse.origin[0]
is.wholenumber <- function(x) any(floor(x) == x)
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.