print.dataesgobr <- function(obj) {
cat("Title:", obj$title, "\n")
cat("Description:", obj$description, "\n")
cat("URL:", obj$url, "\n")
cat("Available formats:", names(obj$formats), "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.