Difference between rbind and rbindlist in terms of time, for appending a single row

difference_between_rbind_rbindlist.R

library(microbenchmark)
library(data.table)

rbindlist_time <- function() {
  data <- data.table(a=c(1),b=c(2))
  for (item in 1:10000) {
    data <- rbindlist(data, data.table(a=c(1),b=c(2)))
  }
}

rbind_time <- function() {
  data <- data.table(a=c(1),b=c(2))
  for (item in 1:10000) {
    data <- rbind(data, data.table(a=c(1),b=c(2)))
  }
}


microbenchmark(
  rbindlist_time,
  rbind_time
)
#Unit: nanoseconds
#           expr min lq  mean median uq max neval
# rbindlist_time  21 22 30.09     23 23 738   100
#     rbind_time  22 23 29.93     24 25 547   100