library(DT) set.seed(323) data.frame(x=runif(10), y=rnorm(10), z=rpois(10, 1)) %>% datatable() %>% formatRound(columns=c('x', 'y'), digits=3)