#' @export
summary.usfrbcpv <- function(object,...) {
writeLines(paste("Prepared:",object$prepared))
sapply(2:length(object),function(i) {
writeLines(paste(object[[i]]$series_name,object[[i]]$short_desc))
})
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.