эффективно перемещать среду изнутри функции в глобальную среду

Question

У меня есть функция, которая создает среду внутри нее, и я хочу назначить эту среду для глобальной среды. В настоящее время я сделать это путем присвоения условий для globalenv() в качестве конечной стадии - следующим образом:

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

Такое чувство, что я должен быть в состоянии сделать что-то сделать dataEnv persisit когда функция funfun концы (чтобы сохранить копирование окружающая среда в конце), однако мои попытки, такие как dataEnv <- new.env(parent = globalenv()), не сработали.

Почему это не удается? Это возможно?

Также, что является наиболее эффективным способом сделать это?

Мои таблицы очень большие время от времени, и копирование станет проблемой по мере роста проекта.

Answer 1

Вашей среду не разрушаются при выходе из функции. Вам просто нужно вернуть ссылку на него.

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) 

Получите некоторый материал

head(myEnv$d3) 

Answer 2

Обычно, когда я хочу, чтобы назначить что-то глобальную среду я просто

varname <<- value