#' @title Trace length Print
#'
#' @description Print Trace length Information
#' @param x Data to print
#' @param ... Additional arguments
#' @method print trace_length
#' @export
print.trace_length <- function(x, ...) {
data <- x
if(attr(data, "level") == "log" & is.null(attr(data, "groups"))) {
attr(data, "raw") <- NULL
attr(data, "level") <- NULL
attr(data, "mapping") <- NULL
class(data) <- c("numeric")
print.default(data)
}
else {
print(tibble::trunc_mat(data))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.