R/print.R

In ewenme/discogr: Interface to the 'Discogs' API

#' 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)

}