如何导入rvest包

# 导入必要的包
library(rvest)

# 设置URL
url <- "https://jshk.com.cn/content/21/0420/21/7083887_858712492.shtml"

# 设置请求头部，使用代理
headers <- list Proxy = paste0("http://", proxy_host, ":", proxy_port)

# 使用rvest的read_html函数发送请求并获取网页源代码
webpage <- read_html(url, encoding = "UTF-8", headers = headers)

# 使用html_nodes函数选取需要爬取的元素
elements <- html_nodes(webpage, ".sleft .sleft-list li")

# 使用html_text函数提取元素的文本
texts <- html_text(elements)

# 打印提取的文本
texts

在代码中，我们首先导入了rvest包，然后设置了代理信息proxy_host和proxy_port。接下来，我们设置了要爬取的网页URL。

然后，我们设置了请求头部，使用代理。这里，我们使用了paste0函数将代理URL拼接成了请求头部。

接着，我们使用rvest的read_html函数发送请求并获取网页源代码。在这个过程中，我们指定了编码为"UTF-8"，并设置了请求头部。

然后，我们使用html_nodes函数选取了需要爬取的元素。在这个例子中，我们选取了网页中class为"sleft .sleft-list li"的元素。

最后，我们使用html_text函数提取了元素的文本，并将其存储在变量texts中。最后，我们打印出了提取的文本。

注意：在实际使用中，可能需要根据具体的网页结构和内容来调整选取元素的代码。