说,我有以下递归列表:
rec_list <- list(list(rep(1,5), 10), list(rep(100, 4), 20:25))
rec_list
[[1]]
[[1]][[1]]
[1] 1 1 1 1 1
[[1]][[2]]
[1] 10
[[2]]
[[2]][[1]]
[1] 100 100 100 100
[[2]][[2]]
[1] 20 21 22 23 24 25
现在,我想用向量替换列表的所有值seq_along(unlist(rec_list)),并保留列表的结构.我尝试使用像空的索引子集一样
rec_list[] <- seq_along(unlist(rec_list))
但这不起作用.
如何在保持列表的原始结构的同时实现替换？