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