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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#' @rdname are_set_equal
#' @export
assert_are_disjoint_sets <- function(x, y,
severity = getOption("assertive.severity", "stop"))
{
assert_engine(
are_disjoint_sets,
x,
y = y,
.xname = get_name_in_parent(x),
.yname = get_name_in_parent(y),
severity = severity
)
}
#' @rdname are_set_equal
#' @export
assert_are_intersecting_sets <- function(x, y,
severity = getOption("assertive.severity", "stop"))
{
assert_engine(
are_intersecting_sets,
x,
y = y,
.xname = get_name_in_parent(x),
.yname = get_name_in_parent(y),
severity = severity
)
}
#' @rdname are_set_equal
#' @export
assert_are_set_equal <- function(x, y,
severity = getOption("assertive.severity", "stop"))
{
assert_engine(
are_set_equal,
x,
y = y,
.xname = get_name_in_parent(x),
.yname = get_name_in_parent(y),
severity = severity
)
}
#' @rdname are_set_equal
#' @export
assert_is_set_equal <- function(x, y,
severity = getOption("assertive.severity", "stop"))
{
.Deprecated("assert_are_set_equal")
assert_are_set_equal(x, y, severity = severity)
}
#' @rdname are_set_equal
#' @export
assert_is_subset <- function(x, y, strictly = FALSE,
severity = getOption("assertive.severity", "stop"))
{
assert_engine(
is_subset,
x,
y = y,
strictly = strictly,
.xname = get_name_in_parent(x),
.yname = get_name_in_parent(y),
severity = severity
)
}
#' @rdname are_set_equal
#' @export
assert_is_superset <- function(x, y, strictly = FALSE,
severity = getOption("assertive.severity", "stop"))
{
assert_engine(
is_superset,
x,
y = y,
strictly = strictly,
.xname = get_name_in_parent(x),
.yname = get_name_in_parent(y),
severity = severity
)
}
|
