Scrape lists of breweries and beers from Craft Beer Cellar

beerList.R

##
## beerList
##

library(xml2)
library(stringr)

##url <- "http://www.craftbeercellar.com/belmont/beers.php?sort=country"  ## Belmont location
url <- "http://www.craftbeercellar.com/winchester/beers.php?sort=country"  ## Winchester location
html <- read_html(url)

## list of breweries
breweryList <- xml_find_all(html, '//*[contains(@class, "beerListHeading")]')
breweryList <- xml_text(breweryList)

## list of beers
beerList <- xml_find_all(html, '//*[contains(@class, "beerListItem")]')
beerList <- xml_text(beerList)
beerList <- str_trim(beerList)