R/case_labels.R

In bupaR: Business Process Analysis in R

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

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

  log <- lifecycle_warning_eventlog(log, eventlog)

  log %>%
    pull(.data[[case_id(log)]]) %>%
    unique()
}