R/print.R

In rgho: Access WHO Global Health Observatory Data from R

#' @rdname man-gho
#' @export
print.gho <- function(x, n = options()$rgho.n, ...) {
  if (n == Inf) {
    n <- nrow(x)
  }

  cat(sprintf("A 'GHO' object of %i elements.\n\n", nrow(x)))

  print.data.frame(head(x,n), ...)

  if (n < nrow(x)) {
    cat(sprintf("...\n\n(Printing %i first elements.)\n", n))
  }

}