反转以UTF-8编码的字母顺序

Question

我有一些用阿拉伯语（UTF-8）编码的变量，但顺序相反：

y <- "سنوت"

正确的词应该是：

     تونس    # Tunisia for curious

我试图像这样扭转这个词：

rawToChar(rev(charToRaw(y)))
[1] "\xaa؈نٳ\xd8"

但这不起作用。请注意，这适用于ASCII编码字符：

y <- "ydutsga"
> rawToChar(rev(charToRaw(y)))
[1] "agstudy"

Answer 1

使用strsplit分隔字符似乎有效：

paste(rev(strsplit(y,"")[[1]]),collapse="")
[1] "تونس"