R/start_activities_case.R

Defines functions start_activities_case

start_activities_case <- function(eventlog) {

	eventlog %>%
		group_by_case() %>%
		arrange(!!as.symbol(timestamp(eventlog)), .order) %>%
		summarize(!!as.symbol(activity_id(eventlog)) := first(!!as.symbol(activity_id(eventlog)))) %>%
		select(!!as.symbol(case_id(eventlog)), !!as.symbol(activity_id(eventlog)))
}
gertjanssenswillen/edeaR documentation built on July 22, 2019, 7:08 p.m.