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

我开发了一个闪亮的应用程序，在y轴标签上显示欧元金额。它不会在打印输出中渲染。我如何回避这个问题

以下内容位于

服务器.R

中：

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

---

我遇到的最接近的是；但是，我不知道如何在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)

---

工作的服务器。但是，当通过点击Run App按钮触发时，它不起作用。文本编码设置为UTF-8。通过
cmd enter
运行代码并点击Run App按钮，在我的环境中确实会产生完全相同的行为。我将不得不进一步探索；因为它似乎对我不起作用。谢谢阿德里安，谢谢你的回复。