R/activity_instance_id.R

In bupaR: Business Process Analysis in R

#' @title Activity instance classifier
#' @description Get the activity instance classifier of an object of class \code{eventlog}.
#' @param x An \code{eventlog} of \code{eventlog_mapping}
#' @family Classifiers
#' @importFrom stringr str_c
#' @export
activity_instance_id <- function(x){
	UseMethod("activity_instance_id")
}
#' @describeIn activity_instance_id Retrieve activity instance identifier from eventlog
#' @export

activity_instance_id.eventlog <- function(x){
	return(attr(x, "activity_instance_id"))
}

#' @describeIn activity_instance_id Retrieve activity instance identifier from eventlog mapping
#' @export

activity_instance_id.eventlog_mapping <- function(x){
	return(x$activity_instance_identifier)
}

#' @describeIn activity_instance_id Retrieve activity instance identifier from activitylog
#' @export

activity_instance_id.activitylog <- function(x){
	stop("Object is activity log. Each row is activity instance. No identifier available")
}

#' @describeIn activity_instance_id Retrieve activity instance identifier from activitylog mapping
#' @export

activity_instance_id.activitylog_mapping <- function(x){
	stop("Object is activity log. Each row is activity instance. No identifier available")
}