Question

我试图在R中使用shinydashboard编写一个仪表板，使用renderValueBox和valueBoxOutput显示一些值。这些值不是硬编码的，而是每天从其他来源中删除。这些值是货币编号，应该报告为$ XXX，XXX.XX，但我看到XXXXXX.XX。是否有一种方法，如包装器，可以轻松格式化这些值？否则，我已经想到了用gsub强制一些正则表达式的粗暴......但是。请和谢谢：）

Answer 1

发现了函数prettyNum()：这个函数非常适合简单转换为逗号分隔的数字。

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

Answer 2

另一种方法是使用{scales}包和dollar_format()函数。在创建其他函数的意义上，此函数是标签函数工厂。

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

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

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

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

2 个答案: