R/Shiny中重音字符替换异常问题求助

这个问题我之前帮朋友排查过，核心原因其实是字符编码的存储形式差异加上chartr函数的局限性：

• chartr是基于字节层面的字符替换工具，它只能匹配固定字节长度的预组合字符（比如ô是单个Unicode码点），但像ǒ这类字符，在Shiny的运行环境中，可能会被自动解析成「基础字符o + 组合重音符号ˇ」的分解式Unicode（两个独立码点），这时候chartr找不到对应的字节序列，自然没法完成替换。
• 而在RStudio交互式运行时，环境默认把字符保持为预组合形式，所以chartr能精准匹配到你定义的ǒ，也就输出了预期结果。

推荐两种可靠的方案，都能避免编码环境差异带来的问题：

方案1：用专业Unicode处理工具（最省心） #

直接使用stringi包的stri_trans_general函数，它专门针对Unicode字符做转写，能自动识别预组合/分解形式的重音字符，不需要手动维护映射表：

library(shiny)
library(stringi)

ui <- fluidPage()

server <- function(input, output) {
  removeaccents <- function(x) {
    # "Latin-ASCII"规则会自动把所有拉丁重音字符转成对应无重音字符
    stri_trans_general(x, "Latin-ASCII")
  }
  
  print(removeaccents("ǒôø")) # 无论在RStudio还是Shiny中都会输出"ooo"
}

shinyApp(ui = ui, server = server)

方案2：统一字符编码形式后再用自定义映射 #

如果你必须保留自己的自定义字符映射表，可以先用stri_normalize把字符统一转换成预组合形式，再用chartr替换：

library(shiny)
library(stringi)

ui <- fluidPage()

server <- function(input, output) {
  charactermap = list('ǒ'='o', 'ô'='o', 'ø'='o')
  
  removeaccents <- function(x) {
    # NFC模式会把所有分解形式的字符转换成标准预组合形式
    x_normalized <- stri_normalize(x, "NFC")
    chartr(
      paste(names(charactermap), collapse=''), 
      paste(charactermap, collapse=''), 
      x_normalized
    )
  }
  
  print(removeaccents("ǒôø")) # 现在能在Shiny中正确输出"ooo"
}

shinyApp(ui = ui, server = server)

内容的提问来源于stack exchange，提问作者s1jinglis