从网页导入数据

Question

我使用以下代码：

library(rvest)
library(httr)
sess <- html_session("http://www.bh.com.tn/", 
                      user_agent("Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.39 Safari/537.36"))
pg <- jump_to(sess, "http://www.bh.com.tn/devise.asp")
dat <- content(pg$response, as="parsed")

我收到以下错误：

  

未提供编码：默认为UTF-8。

当我在浏览器中使用网址时，它可以正常工作。那么，我在这里做错了什么？

Answer 1

这只是一个警告。如果指定编码参数，则没有警告：

content(pg$response, as="parsed", encoding="UTF-8")