Добавьте запятые к каждому числу в блестящем renderDataTable - PullRequest
Новая
       16

Добавьте запятые к каждому числу в блестящем renderDataTable

0 голосов
/ 31 октября 2018

Я хотел бы отображать большие числа с разделением запятыми в таблице данных. Как бы включить предложение валюты формата в функцию renderDataTable в приложении Shiny, чтобы сделать это?

В этом посте показано, как добавить его к обычному DT, но я передаю данные в пользовательский интерфейс. Я не вижу валюту как один из вариантов . 

output$dummy_data_table <- DT::renderDataTable(
    data.frame(A=c(1000000.51,5000.33, 2500, 251), B=c(0.565,0.794, .685, .456)),
    extensions = 'Buttons',
    server=FALSE,
    options = list(
      pageLength = 50,
      scrollX=TRUE,
      dom = 'T<"clear">lBfrtip',
    )  # close options
  ) # close renderDataTable

1 Ответ

0 голосов
/ 31 октября 2018

Вслед за моими комментариями - 

shinyApp(
  ui = fluidPage(
    DTOutput("dummy_data_table")
  ),
  server = function(input, output) {
    output$dummy_data_table <- DT::renderDataTable(
      data.frame(A=c(1000000.51,5000.33, 2500, 251), B=c(0.565,0.794, .685, .456)) %>%
        datatable(extensions = 'Buttons',
          options = list(
            pageLength = 50,
            scrollX=TRUE,
            dom = 'T<"clear">lBfrtip'
          )
        ) %>%
        formatCurrency(1:2, currency = "", interval = 3, mark = ",")
    ) # close renderDataTable
  }
)
...