R/filter_throughput_time_threshold.R

In edeaR: Exploratory and Descriptive Event-Based Data Analysis

filter_throughput_time_threshold <- function(eventlog,
									  lower_threshold,
									  upper_threshold,
									  reverse,
									  units) {


	lower_threshold <- ifelse(is.na(lower_threshold), -Inf, lower_threshold)
	upper_threshold <- ifelse(is.na(upper_threshold), Inf, upper_threshold)

	eventlog %>%
		throughput_time("case", units = units) %>%
		mutate(throughput_time = as.double(throughput_time, units = units)) %>%
		filter(between(throughput_time, lower_threshold, upper_threshold)) %>%
		pull(1) -> case_selection

	filter_case(eventlog, case_selection, reverse)

}