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
|
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()) {
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_call = error_call
)
}
|
