Como obter resultados de pesquisa do Google
Eu usei o seguinte código:
library(XML)
library(RCurl)
getGoogleURL <- function(search.term, domain = '.co.uk', quotes=TRUE)
{
search.term <- gsub(' ', '%20', search.term)
if(quotes) search.term <- paste('%22', search.term, '%22', sep='')
getGoogleURL <- paste('http://www.google', domain, '/search?q=',
search.term, sep='')
}
getGoogleLinks <- function(google.url)
{
doc <- getURL(google.url, httpheader = c("User-Agent" = "R(2.10.0)"))
html <- htmlTreeParse(doc, useInternalNodes = TRUE, error=function(...){})
nodes <- getNodeSet(html, "//a[@href][@class='l']")
return(sapply(nodes, function(x) x <- xmlAttrs(x)[[1]]))
}
search.term <- "cran"
quotes <- "FALSE"
search.url <- getGoogleURL(search.term=search.term, quotes=quotes)
links <- getGoogleLinks(search.url)
Gostaria de encontrar todos os links que resultaram em minha pesquisa e recebo o seguinte resultado:
> links
list()
Como posso obter os links? Além disso, gostaria de obter as manchetes e o resumo dos resultados do google, como posso obtê-lo? E, finalmente, existe uma maneira de obter os links que residem nos resultados do ChillingEffects.org?