List of lists to a data.frame.R

# Check all have same length
list.of.lists.2df <- function(l) {
    '
    Convert a list of lists to a data.frame
    via http://stackoverflow.com/a/4227504/992999
    '
    # Check that all nested lists are of the same lenght
    library(assertthat)
    assert_that(sum(sapply(l, function(x) length(x)!=length(l[[1]])))==0)
    d <- data.frame(t(sapply(l, c)))
    return(d)
}
d <- list.of.lists.2df(l)

List of lists to a data.frame.S

# Check all have same length
list.of.lists.2df <- function(l) {
    '
    Convert a list of lists to a data.frame
    via http://stackoverflow.com/a/4227504/992999
    '
    # Check that all nested lists are of the same lenght
    library(assertthat)
    assert_that(sum(sapply(l, function(x) length(x)!=length(l[[1]])))==0)
    d <- data.frame(t(sapply(l, c)))
    return(d)
}
d <- list.of.lists.2df(l)