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
|
ensure_igraph <- function(graph, optional = FALSE) {
if (is.null(graph)) {
if (!optional) {
cli::cli_abort("Must provide a graph object (provided {.code NULL}).")
} else {
return()
}
}
if (rlang::is_missing(graph)) {
cli::cli_abort("Must provide a graph object (missing argument).")
}
if (!is_igraph(graph)) {
cli::cli_abort("Must provide a graph object (provided wrong object type).")
}
}
igraph.match.arg <- function(
arg,
values,
error_call = rlang::caller_env()
) {
error_arg <- rlang::caller_arg(arg)
if (missing(values)) {
formal.args <- formals(sys.function(sys.parent()))
values <- eval(formal.args[[deparse(substitute(arg))]])
}
arg <- tolower(arg)
values <- tolower(values)
rlang::arg_match(
arg = arg,
values = values,
error_arg = error_arg,
error_call = error_call
)
}
#' @importFrom rlang caller_env
ensure_no_na <- function(x, what, call = caller_env()) {
if (anyNA(x)) {
cli::cli_abort(
"Cannot create a graph object because the {what} contains NAs.",
call = call
)
}
}
|
