#' Date code used in RHESSys
#'
#' Description...
#'
#' @param x RHESSys output in data.frame/data.table form
#'
#' @export
mkdate = function (x)
{
x$date = as.Date(paste(x$year, x$month, x$day, sep = "-"))
x$wy = ifelse(x$month >= 10, x$year + 1, x$year)
x$yd = as.integer(format(as.Date(x$date), format = "%j"))
x$wyd = cal.wyd(x)
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.