在闪亮的R应用程序中显示euro simbol

我正在尝试创建一个闪亮的R应用程序。我有一些麻烦显示欧元符号，并返回它在一个单选按钮。我尝试了不同版本的代码：

library(shiny)
runApp(list(
ui= navbarPage(title = 'shoe euro',
radioButtons('var', 'var',  
c("INCOME_MGL",
"INCOME_MGL€",
"INCOME_MGL€",
"INCOME_MGL€",
"INCOME_MGL\u20ac")     
                        )),
 server=function(input, output, session) {
  }))

但是欧元没有出现在网页上。此外，如果选择第二个选项，页面将返回一个错误：

"Error in fromJSON(content, handler, default.size, depth, allowComments,  : 
  invalid JSON input"

---

问题在于div函数中的类选项组。该类的工作方式似乎是转换为；，阻止浏览器转换&8364；转换为欧元，因为它首先将其转换为&；8364;. 尝试以下作为您的ui.R以查看它的发生

library(shiny)
options = as.list(c("a","b",HTML("€"),"€"))
shinyUI(fluidPage("test",fluidRow(div(class = "shiny-options-group", options))))

在单选按钮小部件中发生这种情况的原因是，radioButtons调用generateOptions来创建选项列表，generateOptions返回divclass=Shining options group，options，其中选项是通过操纵radioButtons函数中的choices参数派生的。以下是您可以做的：

获取GenerationOptions第653行的代码。 使用与generateOptions完全相同的代码定义新函数generateOptions 2，但在末尾更改class参数。 通过运行Shining:：radioButtons获取单选按钮的代码 定义一个新函数radioButtons2，并在其中用GenerationOptions 2替换GenerationOptions。

---

通过运行像environmentradioButtons2这样的东西，将这两个新功能的环境都设置为闪亮。在我的设备上，它似乎工作得很好。你在运行什么版本的R、Shining等？我也有同样的错误。我运行的是RStudio 0.98.1087、R3.1.2、Shining 0.11.1，都是在Windows7 Professional 64位机器上运行的。该错误发生在内置RStudio浏览器和Chrome 41.0.2272.101 m中。