¿Por qué los valores de assign() a un elemento de lista no funcionan en R?

Question

Estoy tratando de usar asignar valores en un objeto en una lista. Lo que quiero hacer es cambiar algunos elementos. Por ejemplo:

x <- list() 
x$test <- 1 
assign("x$test", 2) 
x$test == 1 
    [1] TRUE 

¿Alguna idea? Necesito usar asignar porque estoy construyendo una función que tomará los nombres de los objetos dentro de la lista (x) como entradas.

Answer 1

Parece que está de enhorabuena. Desde el archivo de ayuda:

'Asignar' no despachar métodos de asignación, por lo que no se puede utilizar para conjunto de elementos de vectores, nombres, atributos, etc.

Note que la asignación en un listado adjunto o el marco de datos cambia la copia adjunta y no el objeto original: consulte 'adjuntar' y 'con'.

Si va a ceder names(x) como entrada, no se puede utilizar:

nms <- names(x) 
for (n in nms) 
    x[[n]] <- 'new_value' 

Además, estás intención para su función de modificar alguna variable global? e.g .:

x <- list(test=1) 

f <- function(...) 
    x$test <- 2 

f() # want x$test = 2 ?? 

Porque esto no funcionará (problemas de alcance). Puede hacer que funcione con un poco de trabajo de pies (<<-), pero esto generalmente se considera una mala práctica ya que es fácil introducir errores involuntarios en su código.

Si pudiera dar un ejemplo de por qué desea esta función/para qué sirve, podríamos ayudarlo a encontrar una solución alternativa.

Answer 2

ver lo que sucede cuando se asigna a "x $ test":

x <- list() 
x$test <- 1 
assign("x$test", 2) 
ls() 
[1] "x"  "x$test" 

El elemento "prueba" en "x" es igual: 1, y se extraen con x$test pero get("x$test") será el valor 2 de ese nombre.

¿Por qué no usar los nombres directamente? Es decir.

this.name <- "test" 
x[[this.name]] <- 2 

Answer 3

Ha intentado < < -? Lo usé para asignar nombres y valores a una lista desde una función en una publicación ayer (vea "Combine a series of data frames and create new columns for data in each").

Answer 4

Otra solución es:

x <- list() 
x$test <- 1 
assign("x$test", 2) 
x$test == 1 
TRUE 
eval(parse(text="x$test<-2")) 
x$test == 1 
FALSE 

El comando eval(parse(text="")) puede ser muy útil en este contexto.

Atentamente