#' @export
print.cluster_fit <- function(x, ...) {
cat("celery cluster object\n\n")
if (!is.na(x$elapsed[["elapsed"]])) {
cat(
"Fit time: ", prettyunits::pretty_sec(x$elapsed[["elapsed"]]),
"\n"
)
}
if (inherits(x$fit, "try-error")) {
cat("Cluster fit failed with error:\n", x$fit, "\n")
} else {
print(x$fit, ...)
}
invisible(x)
}
#' @export
print.cluster_spec <- function(x, ...) {
cat("Cluster Specification (", x$mode, ")\n\n", sep = "")
model_printer(x, ...)
if (!is.null(x$method$fit$args)) {
cat("Cluster fit template:\n")
print(show_call(x))
}
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.