RosettaCodeData/Task/Flatten-a-list/R/flatten-a-list.r

x <- list(list(1), 2, list(list(3, 4), 5), list(list(list())), list(list(list(6))), 7, 8, list())

unlist(x)