R/print.mapping.R

In bupaR: Business Process Analysis in R

#' @title Generic print function for mapping.
#' @description Generic print function for mapping.
#' @param x Mapping of \code{\link{eventlog}} or \code{\link{activitylog}}
#' @param ... Additional Arguments
#' @method print eventlog_mapping
#' @export

print.eventlog_mapping <- function(x, ...) {
	mapping <- x

cat(paste0("Case identifier:\t\t", mapping$case_identifier),"\n")
cat(paste0("Activity identifier:\t\t", mapping$activity_identifier),"\n")
cat(paste0("Resource identifier:\t\t", mapping$resource_identifier),"\n")
cat(paste0("Activity instance identifier:\t", mapping$activity_instance_identifier),"\n")
cat(paste0("Timestamp:\t\t\t", mapping$timestamp_identifier),"\n")
cat(paste0("Lifecycle transition:\t\t", mapping$lifecycle_identifier),"\n")

}

#' @method print activitylog_mapping
#' @export

print.activitylog_mapping <- function(x, ...) {
	mapping <- x

	cat(paste0("Case identifier:\t\t", mapping$case_identifier),"\n")
	cat(paste0("Activity identifier:\t\t", mapping$activity_identifier),"\n")
	cat(paste0("Resource identifier:\t\t", mapping$resource_identifier),"\n")
	cat(paste0("Timestamps:\t\t", paste(mapping$timestamps, collapse = ", ")),"\n")

}