#' Extract years from date objects
#' @param date a date
#' @keywords internal
#' @export
#' @noRd
.pshf_year <- function(date) {
x <- as.numeric(format(date, "%Y"))
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.