r语言 - 如何解决西里尔符号(cmd系统命令)的问题?

Question

在我之前的帖子中，我提出了一个关于R中的西里尔符号的问题。今天我又遇到了另一个问题。例如，我们希望看到正在运行的进程:

test <- system2(command="tasklist",
stdout=TRUE,
stderr=TRUE, 
wait = TRUE)

和我们所看到的…

[1] ""                                                                            
[2] "€¬п ®Ўа §                      PID €¬п бҐббЁЁ          ь ᥠ­б        Џ ¬пвм"
[3] "========================= ======== ================ =========== ============"
[4] "System Idle Process              0 Services                   0        24 ЉЃ"
[5] "System                           4 Services                   0       580 ЉЃ"
***

"Iconv"，在之前的任务中有帮助，在这里不能帮助。

sys.setlocale- too.

如何解决这个问题?

Answer 1

我找到解决办法了。

#/c - Carries out the command specified by string and then stops.
command <- function(command, 
intern = TRUE, 
wait = FALSE)
system(paste("cmd.exe /c", command), 
intern = T, 
wait = wait)
#changing our charset
command("chcp 1251")
[1] "’ҐЄгй п Є®¤®ў п бва ­Ёж : 1251" //say bye-bye to mojibake)
# and voila!
command("tasklist")
[1] ""                                                                            
[2] "Имя образа                     PID Имя сессии          № сеанса       Память"
[3] "========================= ======== ================ =========== ============"
[4] "System Idle Process              0 Services                   0        24 КБ"
[5] "System                           4 Services                   0       580 КБ"
[6] "smss.exe                       380 Services                   0     1 232 КБ"
***