Nothing
#' @title n_cases
#'
#' @description Returns the number of cases in an event log.
#' @inheritParams act_collapse
#' @family Counters
#' @export
n_cases <- function(log, eventlog = deprecated()) {
UseMethod("n_cases")
}
#' @describeIn n_cases Count number of cases in a \code{\link{log}}.
#' @export
n_cases.log <- function(log, eventlog = deprecated()) {
log <- lifecycle_warning_eventlog(log, eventlog)
n_distinct(log[[case_id(log)]])
}
#' @describeIn n_cases Count number of cases in a \code{\link{grouped_log}}.
#' @export
n_cases.grouped_log <- function(log, eventlog = deprecated()) {
log <- lifecycle_warning_eventlog(log, eventlog)
log %>%
summarize(n_cases = n_distinct(.data[[case_id(.)]]))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.