блестящий - отображать символ евро на графиках

У меня есть разработанное блестящее приложение, которое отображает суммы в евро на метке оси Y. Он не отображается в выводе графика. Как обойти эту проблему?

В server.R есть следующее:

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

Самое близкое, с чем я столкнулся, это это; но я не уверен, как применить это в блестящем.


r axis shiny euro labels
person cogitoergosum    schedule 26.08.2015    source источник

Ответы (1)


arrow_upward
0
arrow_downward

В следующем минимальном примере знак евро отображается правильно.

Поместите код в новый файл 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)

При запуске я получаю следующий графический интерфейс с нанесенным знаком евро. введите здесь описание изображения

Надеюсь это поможет.

person symbolrush    schedule 26.08.2015
comment
Это сработало. Но при запуске с помощью нажатия кнопки «Запустить приложение» это не сработало. Кодировка текста установлена ​​в UTF-8. - person cogitoergosum; 26.08.2015
comment
Запуск кода через cmd enter и нажатие кнопки «Запустить приложение» приводит к точно такому же поведению в моей среде. - person symbolrush; 26.08.2015
comment
Мне придется исследовать еще кое-что; так как это не работает для меня. Спасибо, Адриан, за ваш ответ. - person cogitoergosum; 26.08.2015