函数将多个列表合并为单个列表?

l 这是一个列表列表。

a <- list(c(1,2,3))
b <- list(c(4,5,6), c(7,8,9))
c <- list(c(10,11,12), c(13,14,15), c(16,17,18))

l <- list(a, b, c)

是一个列表列表,其中每个列表本身至少包含一个列表。

问题

如何制作一个函数,将所有最低级别的列表提取到单个列表中?

# Goal
list(c(1,2,3), c(4,5,6), c(7,8,9), c(10,11,12), c(13,14,15), c(16,17,18))

笔记:

• 这个例子是一个最小的可重复的例子,对于这个例子来说,硬编码解决方案是可能的,但是解决方案的通用性很重要,因为真正的问题有成千上万个列表,每个列表都包含未知数量的列表-所以硬编码的解决方案肯定不会扩展!

到目前为止,我已经尝试了一些事情

一些不成功的尝试,主要是使用 sapply() 和 unlist() :

sapply(l, function(x) { unlist(x) })
# [[1]]
# [1] 1 2 3
# 
# [[2]]
# [1] 4 5 6 7 8 9
# 
# [[3]]
# [1] 10 11 12 13 14 15 16 17 18

unlist(a)
# [1] 1 2 3

# unlist() seems to combine the elements of multiple lists into one list (not desired here)..
unlist(b)
# [1] 4 5 6 7 8 9

我以为 recursive = FALSE

unlist(b, recursive = FALSE)
# [1] 4 5 6 7 8 9