Rでのスクレイピングの際のエラーについて

前提・実現したいこと

Rでスクレイピングをしたいです。
http://www.tabako-sakuranbo.co.jp/goods/goods-1691.php
上記のようなタバコについてのレビューを集めたいです。

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

doc_parse_raw(x, encoding = encoding, base_url = base_url, as_html = as_html,  でエラー: 
  input conversion failed due to input error, bytes 0x20 0xE3 0x81 0x95 [6003]

該当のソースコード

R
1a<-"http://www.tabako-sakuranbo.co.jp/goods/goods-1691.php"
2aa<-read_html(a)
3

試したこと

文字コードの確認などを行い、文字コードなどを指定した上で、コードを実行してみましたが同じエラーが出てしまいました。

aa<-read_html(a,encoding = "Shift_JIS")

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

R version 3.6.1 (2019-07-05)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Catalina 10.15.1

Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.6/Resources/lib/libRlapack.dylib

Random number generation:
RNG: Mersenne-Twister
Normal: Inversion
Sample: Rounding

locale:
[1] ja_JP.UTF-8/ja_JP.UTF-8/ja_JP.UTF-8/C/ja_JP.UTF-8/ja_JP.UTF-8

パソコンはmacです。
よろしくお願いいたします。