R/print.mcgf.R

In mcgf: Markov Chain Gaussian Fields Simulation and Parameter Estimation

#' Print an `mcgf` object.
#'
#' @param x An `mcgf` object.
#' @param attr Attribute to be printed.
#' @param ... Optional arguments to print methods.
#'
#' @return No return value, called for side effects.
#'
#' @export
#' @examples
#' data(sim1)
#' sim1_mcgf <- mcgf(sim1$data, dists = sim1$dists)
#' print(sim1_mcgf, "dists")
print.mcgf <- function(x, attr = ".Data", ...) {
    if (attr == ".Data") {
        print.data.frame(x, ...)
        cat(
            "\nOther attributes:",
            paste(names(attributes(x))[-c(1:3)], collapse = ", "),
            "\n"
        )
        return(invisible(NULL))
    } else {
        print(attr(x, attr, exact = TRUE))
        return(invisible(NULL))
    }
}