闪亮 - 在地块中显示欧元符号

Question

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

以下内容属于server.R：

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

我遇到的最接近的是this;但是，我不知道如何将它应用于光泽。

Answer 1

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

将代码放入新的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)

运行时，我会得到以下GUI，并绘制欧元符号。

希望这有帮助。