library(RCurl) library(XML)
url <- "https://www.google.com/search?&q=cran&hl=en"
doc <- htmlTreeParse(getURL(url), useInternalNodes = TRUE)
nodes <- getNodeSet(doc, "//div[@id='result-stats']")