#' Print method for 'corr' objects

#'

#' @param x 'corr' object

#' @param ... additional arguments

#'

#' @exportS3Method

#' @method print corr

#' @return No value

print.corr <- function(x, ...) {

  if (is.null(x$r)) {

    cat("NULL corr object.\n")

    return(invisible())

  }

  if (attributes(x)$method %in% c("spearman", "pearson", "sparcc")) {

    cat("Correlation table:\n")

  } else {

    cat("Similarity (1-Distance) table:\n")

  }

  cat("Table dimensions:", nrow(x$r), "rows,", ncol(x$r), "columns\n")

  cat("Use method: ", attributes(x)$method, "\n")

}

#' Summary method for 'corr' objects

#'

#' @param object 'corr' object

#' @param ... Additional arguments

#'

#' @return No value

#' @exportS3Method

#' @method summary corr

#'

summary.corr <- function(object, ...) {

  if (is.null(object$r)) {

    cat("NULL corr object.\n")

    return(invisible())

  }

  if (attributes(object)$method %in% c("spearman", "pearson", "sparcc")) {

    cat("Correlation table:\n")

  } else {

    cat("Similarity (1-Distance) table:\n")

  }

  cat("Distribution of r:\n")

  if (t_flag(object$r)) {

    print(summary(object$r[upper.tri(object$r)]))

  } else {

    print(summary(as.vector(object$r)))

  }

  if (!attributes(object)$method %in% c("spearman", "pearson", "sparcc")) {

    return(invisible())

  }

  cat("Distribution of p:\n")

  if (t_flag(object$p)) {

    print(summary(object$p[upper.tri(object$p)]))

  } else {

    print(summary(as.vector(object$p)))

  }

  if ("p.adjust" %in% names(object)) {

    cat("Distribution of p.adjust:\n")

    if (t_flag(object$p.adjust)) {

      print(summary(object$p.adjust[upper.tri(object$p.adjust)]))

    } else {

      print(summary(as.vector(object$p.adjust)))

    }

  }

}

#' Print method for 'coors' objects

#'

#' @param x 'coors' object

#' @param ... additional arguments

#' @return No value

#' @exportS3Method

#' @method print coors

print.coors <- function(x, ...) {

  cat("Coordinates:\n")

  cat("Table dimensions:", nrow(x), "rows,", ncol(x), "columns\n")

  if (!is.null(attributes(x)$curved)) cat("\nWith curved information")

}

#' Print method for 'metanet' objects

#'

#' @param x 'metanet' object

#' @param ... Additional arguments

#' @exportS3Method

#' @method print metanet

#' @return No value

print.metanet <- function(x, ...) {

  pcutils::dabiao(" metanet ", print = TRUE)

  print.igraph(x)

}

#' Print method for 'ggig' objects

#'

#' @param x 'ggig' object

#' @param ... Additional arguments

#'

#' @return No value

#' @exportS3Method

#' @method print ggig

print.ggig <- function(x, ...) {

  pcutils::dabiao(" ggig ", print = TRUE)

  pcutils::dabiao("use `plot()` to visualize ggig object.", char = " ", print = TRUE)

}

#' Print method for 'robust' objects

#' @param x 'robust' object

#' @param ... Additional arguments

#' @return No value

#' @exportS3Method

#' @method print robust

print.robust <- function(x, ...) {

  pcutils::dabiao(" robust ", print = TRUE)

  pcutils::dabiao("use `plot()` to visualize robust object.", char = " ", print = TRUE)

}

#' Print method for 'robustness' objects

#' @param x 'robustness' object

#' @param ... Additional arguments

#' @return No value

#' @exportS3Method

#' @method print robustness

print.robustness <- function(x, ...) {

  pcutils::dabiao(" robustness ", print = TRUE)

  pcutils::dabiao("use `plot()` to visualize robustness object.", char = " ", print = TRUE)

}

#' Print method for 'vulnerability' objects

#' @param x 'vulnerability' object

#' @param ... Additional arguments

#' @return No value

#' @exportS3Method

#' @method print vulnerability

print.vulnerability <- function(x, ...) {

  pcutils::dabiao(" vulnerability ", print = TRUE)

  pcutils::dabiao("use `plot()` to visualize vulnerability object.", char = " ", print = TRUE)

}

#' Print method for 'cohesion' objects

#' @param x 'cohesion' object

#' @param ... Additional arguments

#' @return No value

#' @exportS3Method

#' @method print cohesion

print.cohesion <- function(x, ...) {

  pcutils::dabiao(" cohesion ", print = TRUE)

  pcutils::dabiao("use `plot()` to visualize cohesion object.", char = " ", print = TRUE)

}