Asignar múltiples objetos a .GlobalEnv desde una función

Question

Una publicación aquí un día atrás me ha preguntado cómo asignar valores a múltiples objetos en el entorno global desde dentro de una función. Este es mi intento de usar lapply (assign puede ser más seguro que <<- pero nunca lo he usado y no estoy familiarizado con él).

#fake data set 
df <- data.frame(
    x.2=rnorm(25), 
    y.2=rnorm(25), 
    g=rep(factor(LETTERS[1:5]), 5) 
) 

#split it into a list of data frames 
LIST <- split(df, df$g) 

#pre-allot 5 objects in R with class data.frame() 
V <- W <- X <- Y <- Z <- data.frame() 

#attempt to assign the data frames in the LIST to the objects just created 
lapply(seq_along(LIST), function(x) c(V, W, X, Y, Z)[x] <<- LIST[[x]]) 

dude en acortar cualquier/todas las partes de mi código para hacer este trabajo (o trabajar mejor/más rápido).

Answer 1

Tienes razón en que assign() es la herramienta adecuada para el trabajo. Su argumento envir le da un control preciso sobre dónde se realiza la asignación, control que no está disponible con <- o <<-.

Así, por ejemplo, para asignar el valor de X a un objeto denominado NAME en el medio ambiente global, que haría:

assign("NAME", X, envir = .GlobalEnv) 

En su caso:

df <- data.frame(
    x.2=rnorm(25), 
    y.2=rnorm(25), 
    g=rep(factor(LETTERS[1:5]), 5) 
) 
LIST <- split(df, df$g) 
NAMES <- c("V", "W", "X", "Y", "Z") 

lapply(seq_along(LIST), 
     function(x) { 
      assign(NAMES[x], LIST[[x]], envir=.GlobalEnv) 
     } 
) 

ls() 
[1] "df" "LIST" "NAMES" "V"  "W"  "X"  "Y"  "Z"