Bind new rows to a log if columns added in R

rbindnewcols.R

# Test rbind
# Kudos to http://stackoverflow.com/questions/15014339/rbind-with-new-columns-and-data-table

# old log
dt.1 <- data.table(message = c("A-ok", "no", "yes"), 
                    date   = c("Feb", "Mar", "Mar"))

# new log more columns
dt.2 <- data.table(message = c("watch"), 
                   rows.added = c(100),
                   date   = c("april fool"))



#data.table::rbind(dt.1, dt.2, fill=TRUE) 
dt.fin <- rbind(dt.1, dt.2, fill=TRUE) 
# use new.dt ordering
setcolorder(dt.fin, names(dt.2))


if (ncol(dt.2) == ncol(dt.fin)) {
  setcolorder(dt.fin, names(dt.2))
} else {
  warning("new order not imposed as old log columns deleted")
}