library(dplyr)
library(DT)

mtcars[1:5, ] %>%
  datatable(options = list(ordering = TRUE))