valueBox中的货币符号闪亮仪表板/闪亮答案

【问题标题】：Currency signs in valueBox shinydashboard/shinyvalueBox中的货币符号闪亮仪表板/闪亮
【发布时间】：2023-03-22 10:41:02
【问题描述】：

我创建了一个闪亮的应用程序，它在 valueBox 中显示值。这些值应该以相应的货币（$ 或 € 或 £）显示，但是，仅显示 $ 符号。

MWE 如下所示：

library(shinydashboard)
library(shiny)

ui <- dashboardPage(
  dashboardHeader(title = "MWE"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      valueBox(value = paste0(sprintf("%.2f", 123.14), "$"), 
               subtitle = "This works good:", 
               color = "green"),
      valueBox(value = paste0(sprintf("%.2f", 123.14), "€"), 
               subtitle = "This does not work:", 
               color = "red")
    )
  )
)
server <- function(input, output) {
}

shinyApp(ui, server)

有什么想法吗？

【问题讨论】：

它适用于我（Ubuntu 使用 en_US.UTF-8 作为语言环境，Firefox 使用 unicode 作为文本编码）。
啊，我有一台 Windows 机器...但是@Victorp 的回答产生了正确的结果！
是的，幸运的是有一个简单的解决方法。

标签： r shiny shinydashboard

【解决方案1】：

您好，您可以使用 HTML 代码作为 €（&#8364; 甚至 &euro;），如下所示。你也可以使用FontAwesome icons：

library(shinydashboard)
library(shiny)

ui <- dashboardPage(
  dashboardHeader(title = "MWE"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      valueBox(value = paste0(sprintf("%.2f", 123.14), "$"), icon = icon("dollar"),
               subtitle = "This works good:", 
               color = "green"),
      valueBox(value = HTML(paste0(sprintf("%.2f", 123.14), "&#8364;")), icon = icon("euro"),
               subtitle = "This does not work:", 
               color = "red")
    )
  )
)
server <- function(input, output) {
}

shinyApp(ui, server)

【讨论】：