#' Slightly more human-readable output for discogs_database objects
#'
#' @param x a discogs_database object
#' @param ... ignored
#' @export
print.discogs_database <- function(x, ...) {
cat("<Discogs ", x$path, ">\n", sep = "")
if (is.data.frame(x$content)) {
cat("Preview: 1 of", nrow(x$content), "results.", "\n", sep=" ")
} else if (is.list(x$content)) {
cat("Preview: 1 of", length(x$content), "results.", "\n", sep=" ")
}
utils::str(utils::head(x$content, 1))
invisible(x)
}
#' Slightly more human-readable output for discogs_collection objects
#'
#' @param x a discogs_collection object
#' @param ... ignored
#' @export
print.discogs_collection <- function(x, ...) {
cat("<Discogs ", x$path, ">\n", sep = "")
if (is.data.frame(x$content)) {
cat("Preview: 1 of", nrow(x$content), "records.", "\n", sep=" ")
} else if (is.list(x$content)) {
cat("Preview: 1 of", length(x$content), "records.", "\n", sep=" ")
}
utils::str(utils::head(x$content, 1))
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.