R/print.summary.spjctest.R

In paezha/spqdata: A package for the exploratory analysis of cross-sectional spatial qualitative data

#' @name print.summary.spjctest
#' @rdname print.summary.spjctest
#'
#' @title Print method for objects of class summary.spjctest.
#'
#' @param x object of class \emph{summary.spjctest}.
#' @param digits number of digits to show in printed tables.
#'   Default: max(3L, getOption("digits") - 3L).
#' @param ... further arguments passed to or from other methods.
#'
#' @author
#'   \tabular{ll}{
#'   Fernando López  \tab \email{fernando.lopez@@upct.es} \cr
#'   Román Mínguez  \tab \email{roman.minguez@@uclm.es} \cr
#'   }
#'
#' @seealso
#' \code{\link{summary.spqtest}}.
#' @export
print.summary.spjctest <- function(x, digits = max(3L, getOption("digits") - 3L),
                                  ...) {
  class(x) <- c("gt_tbl") # prevent recursion...
  print(x)
  invisible(x)
}