如何在列表中使用元素和元素拼合列表以使所有元素都在同一级别上？

Question

我有一个列表，其中列表元素是包含多个元组的元组或列表。我想得到一个列表，其中所有的元素在同一水平上。

我该怎么办？

library(tibble)

tib_1 <- tibble(a = 1:4, b = LETTERS[1:4])
tib_2 <- tibble(c = 1:4, d = LETTERS[1:4])
tib_3 <- tibble(e = 1:4, f = LETTERS[1:4])
tib_4 <- tibble(g = 1:4, h = LETTERS[1:4])

my_list <- list(tib_1, tib_2, list(tib_3, tib_4))

desired_list <- list(tib_1, tib_2, tib_3, tib_4)

Answer 1

我们可以使用flatten

library(rlang)
out <- flatten(my_list)

-检查

identical(desired_list, out)
#[1] TRUE