R/datatafel.R

In moturoa/shintoshiny: All the boring components of a Shinto Labs shiny app

#' Datatable, Nederlandse versie
#' @description Alleen hier voor oude applicaties die deze versie nog gebruiken. Zie soft::datatafel, softui::reactafel
#' @importFrom DT datatable renderDT
#' @export
datatafel <- function(..., 
                      dom  = "frtip",
                      pageLength = 10, 
                      escape = FALSE,
                      rownames = FALSE,
                      ordering = TRUE,
                      extensions = "Responsive",
                      selection = "single",
                      lengthChange = FALSE,
                      scrollX = FALSE,
                      options = list()
                      ){
  
  DT::datatable(...,
            escape = escape, 
            rownames = rownames,
            selection = selection,
            extensions = extensions,
            options = c(options, list(dom = dom,
                           ordering = ordering,
                           lengthChange = lengthChange,
                           pageLength = pageLength,
                           language = list(search = "Zoek",
                                           emptyTable = "Geen resultaten.",
                                           zeroRecords = "Geen resultaten.",
                                           info = "Tonen _START_ tot _END_ van _TOTAL_ rijen.",
                                           infoFiltered = "(gefilterd uit _MAX_ rijen)",
                                           infoEmpty = "Geen resultaten.",
                                           paginate = list(
                                             first = "Eerste",
                                             last = "Laatste",
                                             `next` = "Volgende",
                                             previous = "Vorige"
                                           ))),
                        list(scrollX = scrollX)
            )
  )
}