#' Month Number
#'
#' Extract month number from a date object.
#'
#' @param x a vector of dates, of class \code{Date} or \code{POSIXt}.
#'
#' @return Vector of months as integers.
#'
#' @note Use \code{months} to extract month name instead.
#'
#' @export
monthsInt <- function(x)
{
as.integer(format(x, "%m"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.