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
|
#' @include base.r
NULL
base_fs$"&&" <- function(call, env) {
lhs <- eval(call[[2]], env)
if (!lhs) {
get_message(lhs, call[[2]], env)
} else {
rhs <- eval(call[[3]], env)
get_message(rhs, call[[3]], env)
}
}
base_fs$"||" <- function(call, env) {
lhs <- eval(call[[2]], env)
l_msg <- get_message(lhs, call[[2]], env)
rhs <- eval(call[[3]], env)
r_msg <- get_message(rhs, call[[3]], env)
paste0(l_msg, " or ", r_msg)
}
base_fs$any <- function(call, env) {
paste0("No elements of ", deparse(call[[2]]), " are true")
}
base_fs$all <- function(call, env) {
res <- eval(call[[2]], env)
i <- which(!res)
if (length(i) > 10) i <- c(i[1:5], "...")
paste0("Elements ", paste(i, collapse = ", "), " of ",
deparse(call[[2]]), " are not true")
}
|
