取一个简单的嵌套列表L:
L <- list(lev1 = list(lev2 = c("bit1","bit2")), other=list(yep=1))
L
#$lev1
#$lev1$lev2
#[1] "bit1" "bit2"
#
#
#$other
#$other$yep
#[1] 1
还有一个向量，为我想从 L 中选择的每个部分提供一系列深度:
sel <- c("lev1","lev2")
索引时我想要的结果是:
L[["lev1"]][["lev2"]]
#[1] "bit1" "bit2"
我可以像这样使用 Reduce 来概括:
Reduce(`[[`, sel, init=L)
#[1] "bit1" "bit2"
现在，我想扩展这个逻辑来做一个替换，像这样:
L[["lev1"]][["lev2"]] <- "new val"
，但我真的很困惑如何生成递归 [[ 选择，然后我也可以分配给它。
最佳答案
你为什么不能做
L[[sel]] <- "new val"
好吧，如果你想走很长的路那么
您仍然可以使用 Reduce与 modifyList或者你可以使用 [[<- .这是 modifyList 的示例:
modifyList(L,Reduce(function(x,y)setNames(list(x),y),rev(sel),init = "new val"))
$lev1
$lev1$lev2
[1] "new val"
$other
$other$yep
[1] 1
关于使用深度名称向量作为索引替换嵌套列表，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/59042112/