Nothing
#' decyear2date
#'
#' @param x date
#' @author
#' Alan Jassby, James Cloern
#' @export
decyear2date <-
function(x) {
yr <- floor(x)
len <- ifelse(leapYear(yr), 366, 365)
julday <- floor((x - yr) * len)
as.Date(julday, origin = as.Date(paste(yr, 1, 1, sep = '-')))
}
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.