переназначить значения в списке без цикла

Question

test <- list(a = list("first"= 1, "second" = 2), 
     b = list("first" = 3, "second" = 4)) 

В приведенном выше списке я хотел бы переназначить «первые» элементы равными, скажем, пятью. Этот цикл работ:

for(temp in c("a", "b")) { 
    test[[temp]]$first <- 5 
} 

Есть ли способ сделать то же самое, используя векторизованную операцию (lapply и т.д.)? Ниже извлекает значения, но я не могу получить их переназначить:

lapply(test, "[[", "first") 

Answer 1

Вы можете сделать это следующим образом:

test <- lapply(test, function(x) {x$first <- 5; x}) 

Answer 2

Вот является vectorised один вкладыш с использованием unlist и relist:

relist((function(x) ifelse(grepl("first",names(x)),5,x))(unlist(test)),test) 
$a 
$a$first 
[1] 5 

$a$second 
[1] 2 


$b 
$b$first 
[1] 5 

$b$second 
[1] 4