R/create_minimal_activity_log.R

Defines functions create_minimal_activity_log

create_minimal_activity_log <- function(eventlog) {
	eDT <- data.table::data.table(eventlog)

	data.table::setorderv(eDT, cols = c(case_id(eventlog), timestamp(eventlog), ".order"))
	dplyr::as_tibble(unique(eDT, by = c(case_id(eventlog), activity_instance_id(eventlog), activity_id(eventlog))))
}

Try the edeaR package in your browser

Any scripts or data that you put into this service are public.

edeaR documentation built on April 27, 2023, 9:07 a.m.