R/resources.R

In bupaR: Business Process Analysis in R

#' @title Resources
#' @description Returns a \code{tibble}  containing a list of all resources in the event log, with there absolute and relative frequency
#' @inheritParams act_collapse
#' @seealso \code{\link{resource_id}}, \code{\link{eventlog}}
#' @export resources

resources <- function(log, eventlog = deprecated()) {
	UseMethod("resources")
}

#' @describeIn resources Generate resource list for eventlog
#' @export

resources.eventlog <- function(log, eventlog = deprecated()) {

	log <- lifecycle_warning_eventlog(log, eventlog)

	absolute_frequency <- NULL
	relative_frequency <- NULL

	output <- log %>%
		group_by(!!as.symbol(resource_id(log))) %>%
		summarize("absolute_frequency" = n_distinct(!!as.symbol(activity_instance_id(log)))) %>%
		arrange(-absolute_frequency) %>%
		mutate(relative_frequency = absolute_frequency/sum(absolute_frequency)) %>%
		arrange(-relative_frequency)

	return(output)
}
#' @describeIn resources Generate resource list for activitylog
#' @export

resources.activitylog <- function(log, eventlog = deprecated()) {
	log <- lifecycle_warning_eventlog(log, eventlog)

	resources.eventlog(to_eventlog(log))
}
#' @describeIn resources Compute activity frequencies
#' @export
#'
resources.grouped_log <- function(log, eventlog = deprecated()) {
	log <- lifecycle_warning_eventlog(log, eventlog)

	apply_grouped_fun(log, resources)
}