R plots as list from variable inputs

# Plot histograms from variable frame input
getplots <- function(...) {
    frames <- list(...)
    names <- as.list(substitute(list(...)))[-1]

    # Find the max range
    m <- max(sapply(frames, function(f) { max(f$len) }))

    plots <- mapply(function(f,n) {
            print(max(f$len))
            qplot(f$len, xlab='commit msg len', xlim=c(0, m),
                main=sprintf("%s repo", deparse(n)))
        }, frames, names, SIMPLIFY=FALSE)
    return(plots)
}