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
|
## Emulates R internal findVar1mode() function
## https://svn.r-project.org/R/trunk/src/main/envir.c
where <- function(x, where = -1,
envir = if (missing(frame)) {
if (where < 0)
parent.frame(-where)
else as.environment(where)
} else sys.frame(frame),
frame, mode = "any", inherits = TRUE) {
## Validate arguments
stop_if_not(is.environment(envir))
stop_if_not(is.character(mode), length(mode) == 1L)
inherits <- as.logical(inherits)
stop_if_not(inherits %in% c(FALSE, TRUE))
debug <- mdebug("where(%s, where = %d, envir = %s, mode = %s, inherits = %s) ...",
sQuote(x), where, sQuote(envname(envir)), sQuote(mode), inherits)
## Search
env <- envir
while (!identical(env, emptyenv())) {
debug && mdebug("- searching %s: %s", sQuote(envname(env)),
hpaste(sQuote(ls(envir = env, all.names = TRUE))))
if (exists(x, envir = env, mode = mode, inherits = FALSE)) {
debug && mdebug(" + found in location: %s", sQuote(envname(env)))
debug && mdebug("where(%s, where = %d, envir = %s, mode = %s, inherits = %s) ... DONE", sQuote(x), where, sQuote(envname(envir)), sQuote(mode), inherits) #nolint
return(env)
}
if (!inherits) {
debug && mdebug(" + failed to locate: NULL")
debug && mdebug("where(%s, where = %d, envir = %s, mode = %s, inherits = %s) ... DONE", sQuote(x), where, sQuote(envname(envir)), sQuote(mode), inherits) #nolint
return(NULL)
}
env <- parent.env(env)
}
debug && mdebug("- failed to locate: NULL")
debug && mdebug("where(%s, where = %d, envir = %s, mode = %s, inherits = %s) ... DONE", sQuote(x), where, sQuote(envname(envir)), sQuote(mode), inherits)
NULL
}
|
