#' Today's year in the Gregorian calendar.
#'
#' @return <int> probably 2024 or later
#' @export
#'
#' @examples
#' the_year_right_now()
#'
#' @seealso [as.POSIXlt()], [Sys.Date()]
the_year_right_now <- function(){
as.POSIXlt(Sys.Date())$year + 1900L
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.