Nothing
date2doy <- function(x){
stopifnot(any(grepl("^POSIX",class(x[1]))))
day <- as.numeric(format(x, "%j"))
pat <- quote("([0-9]{2}:){2}[0-9]{2}")
midnight <- as.POSIXct(gsub(pat, "00:00:00", x), tz="GMT")
frac <- as.numeric(difftime(x, midnight, units="days"))
day+frac
}
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.