x <- list(X = list(a = 1
, b = list(b.1 = 2
, b.2 = list(b.2.1 = 4, b.2.2 = data.frame())
, b.3 = 3)
, c = matrix()))
unlist_with_sep(x)
unlist_with_sep(x, '###')
Run the code above in your browser using DataLab