R/rbind_fill_DT.R

In marcuskhl/BasicSettings:

#' This function does an rbind.fill / smartbind on a list of data.frames
#' @param ll list of data frames
#' @examples
#' huge_df <- rbind.fill.DT(list_of_dfs)
#' @export
rbind.fill.DT <- function(ll) {
  # changed sapply to lapply to return a list always
  all.names <- lapply(ll, names)
  unq.names <- unique(unlist(all.names))
  ll.m <- rbindlist(lapply(seq_along(ll), function(x) {
    tt <- ll[[x]]
    setattr(tt, 'class', c('data.table', 'data.frame'))
    data.table:::settruelength(tt, 0L)
    invisible(alloc.col(tt))
    tt[, c(unq.names[!unq.names %chin% all.names[[x]]]) := NA_character_]
    setcolorder(tt, unq.names)
  }))
}