Tại sao không gán() giá trị cho một phần tử danh sách hoạt động trong R?

Question

Tôi đang cố sử dụng các giá trị gán trong một đối tượng trong danh sách. Những gì tôi muốn làm là thay đổi một số yếu tố. Ví dụ:

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

Bạn nghĩ gì? Tôi cần phải sử dụng gán bởi vì tôi đang xây dựng một hàm sẽ lấy tên của các đối tượng trong danh sách (x) làm đầu vào.

Answer 1

Có vẻ như bạn đã hết may mắn. Từ tập tin giúp đỡ:

'assign' không cử phương pháp phân công, vì vậy nó không thể được sử dụng để yếu tố tập các vectơ, tên, thuộc tính, vv

Lưu ý nhượng rằng đến một danh sách kèm theo hoặc khung dữ liệu thay đổi bản sao đính kèm chứ không phải đối tượng gốc: xem 'đính kèm' và 'với'.

Nếu bạn đang chuyển names(x) như là đầu vào, bạn không thể sử dụng:

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

Ngoài ra, bạn có ý định cho chức năng của bạn để sửa đổi một số biến toàn cầu? ví dụ:

x <- list(test=1) 

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

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

Vì điều này sẽ không hoạt động (vấn đề phạm vi). Bạn có thể làm cho nó hoạt động với một số bước chân (<<-), nhưng điều này thường được coi là thực hành xấu vì nó dễ dàng để intrtoduce lỗi không chủ ý vào mã của bạn.

Nếu bạn có thể đưa ra ví dụ về lý do bạn muốn chức năng này/mục đích sẽ phục vụ, chúng tôi có thể giúp bạn tìm ra giải pháp thay thế.

Answer 2

Xem những gì sẽ xảy ra khi bạn gán cho "x $ test":

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

Yếu tố "thử nghiệm" trong "x" vẫn là 1, và bạn giải nén nó với x$test nhưng get("x$test") sẽ là giá trị 2 từ cái tên đó.

Tại sao không chỉ sử dụng tên trực tiếp? I E.

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

Answer 3

Bạn đã thử < < -? Tôi đã sử dụng điều này để gán tên và giá trị cho một danh sách từ bên trong một hàm trong một bài đăng ngày hôm qua (xem "Combine a series of data frames and create new columns for data in each").

Answer 4

giải pháp khác là:

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

Lệnh eval(parse(text="")) có thể rất hữu ích trong bối cảnh này.

Trân trọng