pdf_GENERIC <- function(x) {
dates <- index(x)
x <- data.table(as.data.frame(x))
x <- cbind(date=dates, x)
x
}
pdf_FRED <- function(...) {
pdf_GENERIC(pdfetch_FRED(...))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.