[R] list.files()のアウトプットが文字化けしてしまう

Question

前提・実現したいこと

作業ディレクトリ内のフォルダ名をリストで取得したい。

発生している問題・エラーメッセージ

日本語が混ざっているフォルダだと、以下のように文字化けが起きてしまう

>list.files()
 [1] "Office 縺ｮ繧ｫ繧ｹ繧ｿ繝<a0> 繝<86>繝ｳ繝励Ξ繝ｼ繝<88>"
 [2] "Brayer_2011_PNAS.pdf"                              
 [3] "desktop.ini"                                       
 [4] "Font"                                              
 [5] "Github"     

試したこと

Golobal optionsからデフォルトのエンコーディング形式をユニコード形式のUTF-8に設定したが、変わらず。

使用環境

Windows 10
Rstudio 64 bit

> sessionInfo()
R version 4.1.2 (2021-11-01)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19042)

Matrix products: default

locale:
[1] LC_COLLATE=Japanese_Japan.932  LC_CTYPE=Japanese_Japan.932    LC_MONETARY=Japanese_Japan.932
[4] LC_NUMERIC=C                   LC_TIME=Japanese_Japan.932    
system code page: 65001

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
[1] compiler_4.1.2 tools_4.1.2   

Answer 1

list.files()での解決方法は残念ながら私も分からないのですが、作業ディレクトリ内のファイル・フォルダの一覧を取得する別の方法が有ります。

library(tidyverse)
system('powershell "Get-ChildItem > zz_temporary_file_list.txt"')
f1 <- read_csv("zz_temporary_file_list.txt",locale = locale(encoding = "UTF-16LE"),show_col_types = FALSE,skip=7,col_names=FALSE)
f2 <- f1 %>% mutate(file_list=str_sub(f1$X1,51,119)) %>% filter(file_list!='zz_temporary_file_list.txt')%>%select(file_list)
system('powershell "Remove-Item -Path zz_temporary_file_list.txt"')
f2

Output: 作業ディレクトリ内に小松菜　椎茸 、白菜、bananaのフォルダとtomato.txt、ピーマン.txt 、つる草②㍍.txtのファイルがありますが、問題なくtibbleの形で取得できました。

# A tibble: 6 × 1
  file_list    
  <chr>        
1 小松菜　椎茸 
2 白菜         
3 banana       
4 tomato.txt   
5 ピーマン.txt 
6 つる草②㍍.txt

環境
R 4.2.0
Windows 10 Home、バージョン 21H1 (MacbookAir のParallels Desktop上で稼働)

上記コードを解説しますと、Windowsに標準で付属しているPowerShellというツールを使ってzz_temporary_file_list.txtに一旦フォルダ・ファイルの一覧を書き出しています。

    ディレクトリ: \\Mac\Home\Documents\folder1


Mode                 LastWriteTime         Length Name                                                                 
----                 -------------         ------ ----                                                                 
d-----        2022/05/21     17:55                小松菜　椎茸                                                               
d-----        2022/05/21      9:46                白菜                                                                   
d-----        2022/05/21      9:46                banana                                                               
------        2022/05/21     18:06              0 zz_temporary_file_list.txt                                           
------        2022/05/21      5:41              0 tomato.txt                                                           
------        2022/05/21      9:56              0 ピーマン.txt                                                             
------        2022/05/21      5:40              0 つる草②㍍.txt                                                            

これをRに読み込んでいます。試してみてください。

ちなみに私の環境ではlist.files()でも文字化けはしておりません。

> list.files()
[1] "banana"        "tomato.txt"    "つる草②㍍.txt" "ピーマン.txt" 
[5] "小松菜　椎茸"  "白菜"

Comments

[toufya]

ご回答ありがとうございます。
R 4.2がリリースされてから解決されました。
https://stackoverflow.com/questions/70858940/rstudio-does-not-read-non-english-characters-in-paths