R/slice_activities.R

Defines functions slice_activities.grouped_log slice_activities.activitylog slice_activities.eventlog slice_activities

Documented in slice_activities slice_activities.activitylog slice_activities.eventlog slice_activities.grouped_log

#' @title Slice Activities
#' @description Take a slice of activity instances from event log
#' @param .data \code{\link{log}}: Object of class \code{\link{eventlog}} or \code{\link{activitylog}}.
#' @param ... Slice index
#' @export slice_activities
slice_activities <- function(.data, ...) {
  UseMethod("slice_activities")
}
#' @describeIn slice Take a slice of activity instances from event log
#' @export

slice_activities.eventlog <- function(.data, ...) {
	.data %>%
		filter(.data[[activity_instance_id(.data)]] %in% unique(.data[[activity_instance_id(.data)]])[...] )
}

#' @describeIn slice Take a slice of activity instances from activity log
#' @export

slice_activities.activitylog <- function(.data, ...) {
	.data[...,]
}

#' @describeIn slice Take a slice of activity instances from grouped event log
#' @export
slice_activities.grouped_log <- function(.data, ...) {
	.data %>%
		apply_grouped_fun(slice_activities, ..., .keep_groups = TRUE, .returns_log = TRUE)
}

Try the bupaR package in your browser

Any scripts or data that you put into this service are public.

bupaR documentation built on May 29, 2024, 7:46 a.m.