html 跨页面 列表,html – R跨越多个页面的网页抓取

如果您希望将所有信息作为data.frame,您可以使用purrr :: map_df()执行类似的操作：

library(rvest)

library(purrr)

url_base

map_df(1:39,function(i) {

# simple but effective progress indicator

cat(".")

pg

data.frame(wine=html_text(html_nodes(pg,".review-listing .title")),excerpt=html_text(html_nodes(pg,"div.excerpt")),rating=gsub(" Points","",html_text(html_nodes(pg,"span.rating"))),appellation=html_text(html_nodes(pg,"span.appellation")),price=gsub("\\$","span.price"))),stringsAsFactors=FALSE)

}) -> wines

dplyr::glimpse(wines)

## Observations: 1,170

## Variables: 5

## $wine (chr) "Charles Smith 2012 Royal City Syrah (Columbia Valley (WA)...

## $excerpt (chr) "Green olive,green stem and fresh herb aromas are at the ...

## $rating (chr) "96","95","94","93","93"...

## $appellation (chr) "Columbia Valley","Columbia Valley","...

## $price (chr) "140","70","20","40","135","50","60","3...