Jak uzyskać środowisko zmienne w R

Question

Zastanawiam się, czy istnieje, aby uzyskać środowisko zadeklarowanej zmiennej. Powiedzmy, że już zadeklarowałem zmienną do środowiska i chcę użyć środowiska tej zmiennej do zadeklarowania jeszcze kilku zmiennych. Coś jak getenv („zmienna”)

Answer 1

można uzyskać wszystkie obiekty w obszarze roboczym z ls(), więc można następnie sprawdzić, które z nich są środowiskach:

envirs <- ls()[sapply(ls(), function(x) is.environment(get(x)))] 

muszę korzystać get() tam, bo ls() zwrotów imiona postaci obiektów, a nie same obiekty. Teraz podając jakiś obiekt x, chcemy znaleźć, w którym środowisku istnieje. Wszystko, co musimy zrobić, to wykonać iterację w każdym środowisku w envirs i sprawdzić, czy zawierają one obiekt, którego szukamy. Coś wzdłuż linii (sprawdzanie zmiennej x):

sapply(envirs, function(e) 'x' %in% ls(envir=get(e))) 

---

Oto funkcja, aby to wszystko zrobić:

getEnv <- function(x) { 
    xobj <- deparse(substitute(x)) 
    gobjects <- ls(envir=.GlobalEnv) 
    envirs <- gobjects[sapply(gobjects, function(x) is.environment(get(x)))] 
    envirs <- c('.GlobalEnv', envirs) 
    xin <- sapply(envirs, function(e) xobj %in% ls(envir=get(e))) 
    envirs[xin] 
} 

To jest mniej więcej to samo, co ja robiłem na zewnątrz funkcja. gobjects czyta od ls(), tym razem jawnie sprawdzając globalne środowisko .GlobalEnv, ponieważ znajduje się teraz w funkcji.

envirs jest taki sam jak wcześniej, z wyjątkiem tego, że sprawdzi także .GlobalEnv. xin przechowuje których nazwy fotochemicznej x znajdowały się w linii.

xobj <- deparse(substitute(x)) 

Umożliwia badanego wyrobu bez cytatami np getEnv(x) kontra getEnv('x'). Jest to jednak kwestia preferencji, ale możesz ją zmienić, aby akceptowała znaki.

---

Oto kilka testów.

x1 <- 1 
getEnv(x1) 
# ".GlobalEnv" 

x2 <- 2.1 
e2 <- new.env() 
assign('x2', 2.2, e2) 
getEnv(x2) 
# ".GlobalEnv" "e2" 

e3 <- new.env() 
assign('x3', 3, e3) 
getEnv(x3) 
# "e3" 

---

ta sprawdza tylko środowiska tworzone w .GlobalEnv. Jestem pewien, że możesz opracować, jak go rozszerzyć, aby przeszukać więcej środowisk, jeśli tego potrzebujesz.

Jestem zaskoczony, że nie ma w tym wbudowanej funkcji. A może jest i nie wiem o tym. Nigdy wcześniej nie musiałem robić czegoś takiego, więc może to wcale nie jest zaskakujące.

Answer 2

Jak o tym:

getEnvOf <- function(what, which=rev(sys.parents())) { 
    for (frame in which) 
    if (exists(what, frame=frame, inherits=FALSE)) 
     return(sys.frame(frame)) 
    return(NULL) 
} 

Wtedy możemy:

x <- 1 
getEnvOf("x") 
# <environment: R_GlobalEnv> 

getEnvOf("y") 
# NULL 

f <- function() getEnvOf("x") 
f() 
# <environment: R_GlobalEnv> 

g <- function() { x <- 2; getEnvOf("x") } 
g() 
# <environment: 0x114c26518> 

Answer 3

Patrz: http://adv-r.had.co.nz/Environments.html#env-basics

library(pryr) 
x <- 5 
where("x") 
#> <environment: R_GlobalEnv> 
where("mean") 
#> <environment: base> 

WHERE funkcja jest opisana w powyższej stronie internetowej. Znajduje tylko pierwsze środowisko, w którym pojawia się zmienna, ale można je łatwo zmodyfikować, aby znaleźć wszystko.