Я не уверен, как это сделать с помощью функции currency
. Кажется, что не стоит принимать во внимание то, чтобы поставить символ после.
Вы можете использовать функцию prettyNum
из base R
в сочетании с paste
для добавления символа в конце:
paste(prettyNum(x, big.mark = " ",big.interval = 3), "€")
[1] "123 456 €"
В качестве альтернативы, в DT
вы можете используйте функцию formatCurrency
:
library(DT)
x = 123456
datatable(as.matrix(x)) %>% formatCurrency(1, '\U20AC', digits = 0, before = FALSE, mark = "")
Она отвечает на ваш вопрос?