R/resource_labels.R

In bupaR: Business Process Analysis in R

#' @title Get vector of resource labels
#' @description Retrieve a vector containing all unique resource labels
#' @inheritParams act_collapse
#' @export
resource_labels <- function(log, eventlog = deprecated()) {
	UseMethod("resource_labels")
}

#' @describeIn resource_labels Retrieve resource labels from eventlog
#' @export
resource_labels.default <- function(log, eventlog = deprecated()) {

	log <- lifecycle_warning_eventlog(log, eventlog)

	unique(log[[resource_id(log)]])
}