#' @export
format.YYYY <- function (x, ...) {
#out <- paste0(timeline(x), x)
out <- format(unclass(x))
out[is.na(x)] <- NA_character_
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.