R/OutputDataCurrency.R

In irisweyermenkhoff/toyota-idv-functions: Risk Reporting and Toolbox Calculation Functions

OutputDataCurrency <- function(list_reactivevalue, i,
                               render_shiny = TRUE) {
  if (render_shiny == TRUE) {
    DT::renderDataTable(
      datatable(list_reactivevalue[[i]],
        rownames = FALSE,
        options = list(
          paging = FALSE,
          searching = FALSE,
          info = FALSE
        )
      ) %>%
        formatCurrency(
          columns = names(list_reactivevalue[[i]])[sapply(list_reactivevalue[[i]], is.numeric)],
          interval = 3,
          mark = ",",
          digits = 0,
          currency = "",
          dec.mark = "."
        )
    )
  } else {
    datatable(list_reactivevalue[[i]],
      rownames = FALSE,
      options = list(
        paging = FALSE,
        searching = FALSE,
        info = FALSE
      )
    ) %>%
      formatCurrency(
        columns = names(list_reactivevalue[[i]])[sapply(list_reactivevalue[[i]], is.numeric)],
        interval = 3,
        mark = ",",
        digits = 0,
        currency = "",
        dec.mark = "."
      )
  }
}