r - 展平递归嵌套列表结构

Question

我在编写foreach循环时犯了一个愚蠢的错误。循环的每次迭代都返回一个矩阵，除了我给它的参数.combine=list：

library(foreach)
nested <- foreach(i = 1:4, .combine=list) %do% {
  matrix(i, 2, 2)
}

结果是一个递归嵌套的列表结构：nested[[2]]给我第四个矩阵，nested[[1]][[2]]给我第三个矩阵，nested[[1]][[1]][[2]]给我第二个矩阵，最后nested[[1]][[1]][[1]]给我第一个矩阵：

> nested
[[1]]
[[1]][[1]]
[[1]][[1]][[1]]
     [,1] [,2]
[1,]    1    1
[2,]    1    1

[[1]][[1]][[2]]
     [,1] [,2]
[1,]    2    2
[2,]    2    2


[[1]][[2]]
     [,1] [,2]
[1,]    3    3
[2,]    3    3


[[2]]
     [,1] [,2]
[1,]    4    4
[2,]    4    4

这是一个小例子来演示我的问题是什么样的；我的实际结果是一个嵌套更深的列表。在没有参数的情况下再次运行我的foreach循环.combine=list，是否有一种简单的方法可以将其展平为每个元素都是矩阵的单个列表？

Answer 1

我遇到了一个名为LinearizeNestedListonce 的函数，并将其保存为 Gist。

它做你想做的事：

## Make sure you are using the development version of "devtools"
## devtools::install_github("devtools")

library(devtools)
source_gist("https://gist.github.com/mrdwab/4205477")
# Sourcing https://gist.github.com/mrdwab/4205477/raw/1bd86c697b89de9941834882f1085c8312076e38/LinearizeNestedList.R
# SHA-1 hash of file is dde479195258dbad9367274ceedbd5a68251478a
LinearizeNestedList(nested)
# $`1/1/1`
#      [,1] [,2]
# [1,]    1    1
# [2,]    1    1
# 
# $`1/1/2`
#      [,1] [,2]
# [1,]    2    2
# [2,]    2    2
# 
# $`1/2`
#      [,1] [,2]
# [1,]    3    3
# [2,]    3    3
#
# $`2`
#      [,1] [,2]
# [1,]    4    4
# [2,]    4    4