如何在valueBox shinydashboard中格式化货币值？

Question

我正在尝试使用R中的shinydashboard编写一个仪表盘，使用renderValueBox和valueBoxOutput显示从另一个源每天抓取的货币数值。 这些数值应该像$XXX,XXX.XX这样报告，但是我看到的是XXXXXX.XX。 是否有一种简单的包装方法可以格式化这些值？ 否则，我考虑通过gsub进行一些正则表达式匹配，但那太麻烦了。 谢谢 :)

- kay

Answer 1

发现了函数prettyNum()：这个函数在将数字转换为带有逗号的形式上非常神奇。

> prettyNum(56789, big.mark = ",")
> 56,789

- kay

Answer 2

另一种方法是使用包和函数。该函数是一个标签函数工厂，它创建其他函数。

我通常需要以欧元输出数字，因此我定义了以下函数：

euro_format <- scales::dollar_format(
  prefix = "\u20ac", # the euro symbol
  suffix = "",
  big.mark = ",",
  decimal.mark = ".",
  accuracy = 1
)

>euro_format(20842)
[1] "€20,842"

- Lefkios Paikousis