R switch（）仅在变量输入的unicode字符上返回NULL

当我在unicode字符的闪亮服务器函数中使用switch时，我没有得到预期的行为：

library(shiny)
app<-shinyApp(
        ui=shinyUI(fluidPage(
                selectInput("variable",label = NULL,choices = c( "a","b","é"), selected = "é"),
                mainPanel(plotOutput("text"))
        )), 
        server=function(input, output) {
                output$text<-renderText({
                        print(switch(input$variable,
                                     "a"="A",
                                     "b"="B",
                                     "é"="E"))
                })
        })
runApp(app)

---

不能复制。当我运行你的应用程序时，

E

正确打印在我的终端上。有趣！我重新启动了R和我的电脑只是为了确定，但它仍然没有打印“E”。顺便问一下，你的R版本是什么，R工作室，等等？我最近更新了所有内容，在无法复制之前，它工作得很好。当我运行你的应用程序时，

E

正确打印在我的终端上。有趣！我重新启动了R和我的电脑只是为了确定，但它仍然没有打印“E”。顺便问一下，你的R版本是什么，R工作室，等等？我最近更新了所有内容，在无法复制之前，它工作得很好。当我运行你的应用程序时，

E

正确打印在我的终端上。有趣！我重新启动了R和我的电脑只是为了确定，但它仍然没有打印“E”。顺便问一下，你的R版本是什么，R工作室，等等？我最近更新了所有的东西，它以前工作得很好

x<-"é"
switch(x,
          "a"="A",
          "b"="B",
          "é"="E")

R version 3.1.3 (2015-03-09)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=French_France.1252  LC_CTYPE=French_France.1252    LC_MONETARY=French_France.1252
[4] LC_NUMERIC=C                   LC_TIME=French_France.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] shiny_0.12.0

loaded via a namespace (and not attached):
 [1] digest_0.6.8     htmltools_0.2.6  httpuv_1.3.2     jsonlite_0.9.16  mime_0.3        
 [6] R6_2.0.1         Rcpp_0.11.6      rsconnect_0.3.79 rstudioapi_0.3.1 tools_3.1.3     
[11] xtable_1.7-4