Effiziente Verschiebung der Umgebung von der Funktion in die globale Umgebung

Question

Ich habe eine Funktion, die eine Umgebung darin erstellt, und ich möchte diese Umgebung der globalen Umgebung zuweisen. Derzeit kann ich das durch die Umwelt zu globalenv() als letzten Schritt der Zuordnung - wie folgt:

funfun <- function(inc = 1){ 
    dataEnv <- new.env() 
    dataEnv$d1 <- 1 + inc 
    dataEnv$d2 <- 2 + inc 
    dataEnv$d3 <- 2 + inc 
    assign('dataEnv', dataEnv, envir = globalenv()) 
} 

Es fühlt sich an wie ich in der Lage sein soll, etwas zu tun dataEnv persisit zu machen, wenn die Funktion funfun Ende (Kopieren speichern die Umgebung am Ende) aber meine Versuche, wie dataEnv <- new.env(parent = globalenv()), haben nicht funktioniert.

Warum schlägt es fehl? Ist das möglich?

Auch, was ist der effizienteste Weg, dies zu tun?

Meine Tabellen sind manchmal sehr groß, und das Kopieren wird ein Problem, wenn das Projekt wächst.

Answer 1

Ihre Umgebung nicht zerstört werden, wenn Sie die Funktion beenden. Sie müssen nur einen Verweis darauf zurückgeben.

funfun <- function(inc = 1){ 
    dataEnv <- new.env(parent=globalenv()) 
    dataEnv$d1 <- 1 + inc 
    dataEnv$d2 <- 2 + inc 
    dataEnv$d3 <- rnorm(10000) 
    return(dataEnv) 
} 


myEnv <- funfun() 
object.size(myEnv) 

ein paar Sachen aus

head(myEnv$d3) 

Answer 2

Normalerweise, wenn ich etwas zu einem globalen Umfeld zuordnen mag ich nur

varname <<- value