「不正なマルチバイト文字があります」のエラーを解決したい

Question

前提・実現したいこと

あるサイトからCSVファイルを引っ張ってこようと思っています。
引っ張ってくるときに「不正なマルチバイト文字があります」のエラーが出てうまくデータを引っ張ってこれません。
ネットにも同じようなエラーの解決法が乗っていましたが試してもだめでした。
何卒ご指導お願い致します。

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

> h_work <- data.frame(fread("https://www.harp.lg.jp/opendata/dataset/1369/resource/2853/covid19_data.csv", encoding = "UTF-8"))
 [100%] Downloaded 20062 bytes...
 make.names(vnames, unique = TRUE) でエラー: 
   '<83>O<83><89><83>t<94><f1><95>\<8e><a6>' に不正なマルチバイト文字があります

エラーではないと思うのですがライブラリ読み込むときに警告でました。関係あるかわかりません。

 ダウンロードされたパッケージは、以下にあります 
 	/var/folders/lg/xk499zmn2h19815pdp9_4w0c0000gn/T//RtmpHPeigA/downloaded_packages 
> library(data.table)
data.table 1.13.2 using 1 threads (see ?getDTthreads).  Latest news: r-datatable.com
**********
This installation of data.table has not detected OpenMP support. It should still work but in single-threaded mode.
This is a Mac. Please read https://mac.r-project.org/openmp/. Please engage with Apple and ask them for support. Check r-datatable.com for updates, and our Mac instructions here: https://github.com/Rdatatable/data.table/wiki/Installation. After several years of many reports of installation problems on Mac, it's time to gingerly point out that there have been no similar problems on Windows or Linux.
**********
 警告メッセージ: 
 パッケージ ‘data.table’ はバージョン 4.0.2 の R の下で造られました  
> library(curl)
 警告メッセージ: 
 パッケージ ‘curl’ はバージョン 4.0.1 の R の下で造られました  

該当のソースコード

h_work <- data.frame(fread("https://www.harp.lg.jp/opendata/dataset/1369/resource/2853/covid19_data.csv", encoding = "UTF-8"))

試したこと

h_work <- data.frame(fread("https://www.harp.lg.jp/opendata/dataset/1369/resource/2853/covid19_data.csv", encoding = "CP932))

h_work <- data.frame(fread("work <- data.frame(fread("/ローカル/covid19_data.csv", encoding = "UTF-8"))

h_work <- read.csv("https://www.harp.lg.jp/opendata/dataset/1369/resource/2853/covid19_data.csv", encoding = "UTF-8")

補足情報（FW/ツールのバージョンなど）

R 4.0.0
macOS Catalina

Answer 1

上記のファイルをダウンロードして、サクラエディタで開いて文字コードを確認しましたが、SJISでした。
encoding = "UTF-8"となっていますので、SJISに変更すれば良いと思います。

Comments

[K.Saitoh]

ためしてみましたが、次のようなエラーが出てしましました

h_work <- data.frame(fread("https://www.harp.lg.jp/opendata/dataset/1369/resource/2853/covid19_data.csv", encoding = "SJIS"))
fread("https://www.harp.lg.jp/opendata/dataset/1369/resource/2853/covid19_data.csv", でエラー:
Argument 'encoding' must be 'unknown', 'UTF-8' or 'Latin-1'.

[akiruno-oneone]

エラーメッセージをみる限りは、SJISには対応していないようですね。
CSVファイルをUTF-8に変換してから、ローカルから読み込むのはどうでしょうか。

[K.Saitoh]

CSVをUTF-8に治すためにWIndowsで直してからローカルから読み込んで見ました。
その結果うまく行きました。ありがとうございます。

Answer 2

試してませんが、あらかじめ設定を施すことでSJISに対応する方法があるようです。

????文字化けこわい、こわくない？ - cucumber flesh

localeを設定し、read_delimを使えばおｋ

Comments

[K.Saitoh]

すみません、もう少し詳しく教えていただければと思います。
system("locale")をうってみたら以下のようになりました。
ここにSJISが入るのでしょうか？

…
> system("locale")
LANG="ja_JP.UTF-8"
LC_COLLATE="ja_JP.UTF-8"
LC_CTYPE="ja_JP.UTF-8"
LC_MESSAGES="ja_JP.UTF-8"
LC_MONETARY="ja_JP.UTF-8"
LC_NUMERIC="ja_JP.UTF-8"
LC_TIME="ja_JP.UTF-8"
LC_ALL=
>
…
read\_delimをうっても以下のようになってしまいます。
…
> read\_delim
エラー: 想定外の入力です in "read\"
…