#' #' @param x `YYYY` object
#' #' @param i integer
#' #' @noRd
#' #' @export
#' `[.YYYY` <- function(x, i) {
#' timeline <- timeline(x)
#' x <- as.integer(x)
#' new_YYYY(NextMethod(), timeline = timeline)
#' }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.