R/processing_time_case.R

Defines functions processing_time_case

processing_time_case <- function(eventlog,
								 units,
								 work_schedule) {

	eventlog %>%
		processing_time_activity_instance(units = units,
										  work_schedule = work_schedule) %>%
		group_by(!!case_id_(eventlog)) %>%
		summarize(processing_time = sum(processing_time)) %>%
		select(!!case_id_(eventlog), processing_time)

}
gertjanssenswillen/edeaR documentation built on July 22, 2019, 7:08 p.m.