/
filter_attributes.R
47 lines (35 loc) · 1.14 KB
/
filter_attributes.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#' @title Generic filter function for eventlog
#' @description Generic filter function for eventlog
#'
#' `r lifecycle::badge("deprecated")`
#'
#' This function is deprecated as of bupaR version 0.5.0. Please use [filter] instead.
#'
#' @param eventlog Eventlog object
#' @param ... Filter conditions
#' @keywords internal
#' @export
filter_attributes <- function(eventlog, ...) {
lifecycle::deprecate_warn("0.5.0", "filter_attributes()", "filter()")
UseMethod("filter_attributes")
}
#' @describeIn filter_attributes Filter eventlog using attributes
#' @export
filter_attributes.eventlog <- function(eventlog, ...) {
filter(eventlog, ...)
}
#' @describeIn filter_attributes Filter grouped eventlog using attributes
#' @export
filter_attributes.grouped_eventlog <- function(eventlog, ...) {
filter(eventlog, ...)
}
#' @describeIn filter_attributes Filter eventlog using attributes
#' @export
filter_attributes.activitylog <- function(eventlog, ...) {
filter(eventlog, ...)
}
#' @describeIn filter_attributes Filter grouped eventlog using attributes
#' @export
filter_attributes.grouped_activitylog <- function(eventlog, ...) {
filter(eventlog, ...)
}