Замена акцентов в R / Shiny - PullRequest
Новая
       19

Замена акцентов в R / Shiny

0 голосов
/ 16 мая 2018

Моя проблема связана с переводом акцентированных символов в R / Shiny - я пытался использовать решение , обсуждаемое здесь , но столкнулось с досадным исключением:

В пределах 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)

Похоже, это происходит только с небольшим количеством персонажей, которые меня интересуют - какие-либо идеи, почему это может происходить и как это исправить, пожалуйста ???

...