Как отформатировать числа в функции knitr :: kable

Question

Есть ли способ отформатировать числа в функции kable без преобразования данных в исходном объекте в форматированную строку?

library(dplyr)
library(knitr)
library(kableExtra)

test.data <- data.frame(merchant = c("merchant 1",
                                     "merchant 2",
                                     "merchant 3",
                                     "merchant 4",
                                     "merchant 5"), 
                        amount = c(3158.01,
                                   2341.67,
                                   1873.24,
                                   1578.15,
                                   1273.19))

test.data %>%
  kable() %>%
  kable_styling(full_width = FALSE)

Что мне нужно передать функции kable, чтобы стилизовать числа в качестве валюты?

Answer 1

Момент лицевой стороны при наборе моего исходного вопроса.Вот результат, который я закончил, используя curency в пакете formattable при передаче фрейма данных в kable (может быть, лучший способ, я только 6 месяцев использую R):

library(dplyr)
library(knitr)
library(kableExtra)
library(formattable)

test.data <- data.frame(merchant = c("merchant 1",
                                     "merchant 2",
                                     "merchant 3",
                                     "merchant 4",
                                     "merchant 5"), 
                        amount = c(3158.01,
                                   2341.67,
                                   1873.24,
                                   1578.15,
                                   1273.19))
data.frame(test.data$merchant, currency(test.data$amount)) %>%
  kable(col.names = c("Merchant", "Amount Spent")) %>%
  kable_styling(full_width = FALSE)