R/print.trace_length.R

In gertjanssenswillen/edeaR: Exploratory and Descriptive Event-Based Data Analysis

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