# Playing with XML-Package: Get No. of Google Search Hits with R

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**theBioBucket***, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

GoogleHits <- function(input) { require(XML) require(stringr) require(RCurl) url <- paste("https://www.google.com/search?q=\"", input, "\"", sep = "") CAINFO = paste(system.file(package="RCurl"), "/CurlSSL/ca-bundle.crt", sep = "") script <- getURL(url, followlocation = TRUE, cainfo = CAINFO) doc <- htmlParse(script) res <- xpathSApply(doc, "//div[@id='subform_ctrl']/*", xmlValue)[[2]] cat(paste("\nYour Search URL:\n", url, "\n", sep = "")) cat("\nNo. of Hits:\n") return(as.integer(gsub("[^0-9]", "", res))) } # Example: GoogleHits("R%Statistical%Software")p.s.: If you try to do this in a robot fashion, like:

lapply(list_of_search_terms, GoogleHits)google will block you after about the 300th recursion!

To

**leave a comment**for the author, please follow the link and comment on their blog:**theBioBucket***.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.