R/rbindallcolumns.R

In edvardmizsei/hunviphab:

Defines functions rbindallcolumns

Documented in rbindallcolumns

rbindallcolumns <- function(x, y) {

  x.diff <- setdiff(colnames(x), colnames(y))
  y.diff <- setdiff(colnames(y), colnames(x))

  x[, c(as.character(y.diff))] <- NA

  y[, c(as.character(x.diff))] <- NA

  return(rbind(x, y))
} # nem saját