library(DT)
data(top_asgns, package="tablesubmission")
datatable(top_asgns)

plot of chunk unnamed-chunk-1