render_dt.R

library(DT)

#' render_dt
#' render a DT table within Rmarkdown.
#' @param table a data frame
render_dt <- function(table) {
  table %>% 
    DT::datatable(
      extensions = 'Buttons',
      options = list(dom = 'Blfrtip', scrollX = TRUE, scrollY=TRUE,
                     buttons = c('copy', 'csv'),
                     lengthMenu = list(c(10,25,50,-1),
                                       c(10,25,50,"All"))))}