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
|
stopf <- function(fmt, ..., call. = TRUE, domain = NULL) { #nolint
msg <- gettextf(fmt, ...)
msg <- .makeMessage(msg, domain = domain)
if (is.call(call.)) {
call <- call.
} else if (isTRUE(call)) {
call <- sys.call(which = -1L)
} else {
call <- NULL
}
cond <- simpleError(msg, call = call)
stop(cond)
}
warnf <- function(fmt, ..., call. = TRUE, immediate. = FALSE, domain = NULL) { #nolint
msg <- gettextf(fmt, ...)
## Cannot tweak 'call' when immediate. = TRUE
if (isTRUE(immediate.)) {
warning(msg, call. = call., immediate. = immediate., domain = domain)
} else {
msg <- .makeMessage(msg, domain = domain)
if (is.call(call.)) {
call <- call.
} else if (isTRUE(call)) {
call <- sys.call(which = -1L)
} else {
call <- NULL
}
cond <- simpleWarning(msg, call = call)
warning(cond)
}
}
msgf <- function(fmt, ..., appendLF = FALSE, domain = NULL) { #nolint
msg <- gettextf(fmt, ...)
message(msg, appendLF = appendLF, domain = domain)
}
|
