A faster, multicore rbind function. Still way slower than rbindlist but has all of the checks in rbind and returns a data frame, not data.table

fast_rbind

fast_rbind <- function(to_bind, cores = 12, splits = 10){
    # to_bind : list of dataframes to bind 
    require(multicore)
    myseq <- c(seq(from = 1,to = length(dat2), 
                   by = floor(length(dat2) / max(cores, splits))), 
               length(dat2))
    intermediates <- mclapply(1:length(myseq), 
                              function(x) {
                                  if(x != length(myseq)){
                                      do.call(`rbind`, dat2[myseq[x]:(myseq[x+1] -1)])    
                                  }
                              }, mc.cores = cores)
    do.call(`rbind`, intermediates)
}