闪亮 - 在绘图中显示欧元符号

shiny - Display Euro symbol in plots

我开发了一个闪亮的应用程序,可以在 y 轴标签上显示欧元金额。它不会在绘图输出中呈现。我该如何解决这个问题?

以下是在server.R:

plot(monthRange, euroPerMonth/1000, 
     type="l",
     main="Cost",
     xlab="Months",
     ylab="€ (000)")    

我遇到的最接近的是this;但是,我不确定如何在 shiny 中应用它。

以下最小示例确实正确绘制了欧元符号。

将代码放入新的 R 文件中并命名为 app.R

server <- function(input, output) {
output$cost <- renderPlot({
    plot(2, main="Cost", xlab="Months", ylab="€") 
  })
}

ui <- fluidPage(
    mainPanel(plotOutput("cost"))
)

shinyApp(ui = ui, server = server)

当 运行 这时,我得到以下带有欧元符号的图形用户界面。

希望对您有所帮助。