替换R / Shiny中的重音

Question

我的问题与R / Shiny中的重音字符的翻译有关 - 我试图使用解决方案discussed here但遇到了令人沮丧的例外：

在RStudio内;如果我突出显示下面代码的所有行，然后按Ctrl + Enter（Run-Selected-Lines），我得到“ooo”的预期输出。

但是，如果按“运行应用程序”（作为项目的一部分），我会改为“ǒoo” - 即第一个字符未被映射。

library(shiny)
ui <- fluidPage()

server <- function(input, output) {
  charactermap = list('ǒ'='o', 'ô'='o', 'ø'='o')

  removeaccents <- function(x) {
    corrected <- chartr(paste(names(charactermap), collapse=''),
                    paste(charactermap, collapse=''),
                    x)
    return(corrected)
 }

 print(removeaccents("ǒôø")) 
}

# Run the application 
shinyApp(ui = ui, server = server)

这似乎只发生了我感兴趣的少数人物 - 任何想法为什么会发生这种情况以及如何解决它？