# install.packages(\"rvest\")
library(rvest) # 第一步
# 这里先自定义两个函数
# 第1个：自定义读取单个商品url地址函数
read.url<-function(category){
# 解析网页
webs<-read_html(category,encoding = \"gbk\")
urls<-webs %>%
html_nodes(\"div.con.shoplist\") %>% html_nodes(\"ul\") %>%
html_nodes(\"li\") %>%
html_nodes(\"a.pic\") %>%
html_attr(\"href\") return(urls)
}