R/data_table_server.R

In CRI-iAtlas/iatlas.modules2: iAatlas Modules2

#' Data Table Server
#'
#' @param id a shiny id
#' @param tbl at tibble
#' @param options sent to DT::datatable
#' @param color T/F
#' @param color_column a column in the tbl
#' @param colors sent to DT::styleEqual
#' @param ... args sent to DT::datatable
#'
#' @export
data_table_server <- function(
  id,
  tbl,
  options = list(pageLength = 10),
  color = F,
  color_column = NULL,
  colors = NULL,
  ...
) {
  shiny::moduleServer(
    id,
    function(input, output, session) {
      output$data_table <- DT::renderDT({
        dt <- DT::datatable(
          tbl(),
          options = options,
          rownames = FALSE,
          ...
        )
        if (color) {
          dt <-  DT::formatStyle(
            dt,
            color_column,
            backgroundColor = DT::styleEqual(colors, colors))
        }
        return(dt)
      })

      output$download_table <- shiny::downloadHandler(
        filename = function() stringr::str_c("data-", Sys.Date(), ".csv"),
        content = function(con) readr::write_csv(tbl(), con)
      )
    }
  )
}