#' Julian Day for any date
#'
#' @param date Object of class date or a string of format "YYYY-MM-DD"
#' @return Julian day
#'
#' @examples
#' ## day of current date
#' doy()
#'
#' @export
#'
doy <- function(date = Sys.Date()) {
if (is.character(date)) as.Date(date, origin = substr(date, 1,4))
out <- strftime(date, format = "%j")
return(as.numeric(out))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.