r - 使用深度名称向量作为索引替换嵌套列表

取一个简单的嵌套列表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