R/rbind-all-columns.R

Defines functions rbind.all.columns

rbind.all.columns <- 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))
}
jcoleson/RIIS-Logs documentation built on Nov. 8, 2019, 8:05 a.m.