2

次のように、Google Websearch から URL を取得したいと思います。

library(httr)
search.term="httr+package+daterange:%3A2456294-2456659"
url.name=paste0("https://www.google.com/search?q=",search.term)
url.get=GET(url.name)
url.content=content(url.get)

次に、結果からリンクを取得しようとして失敗します。

links <- xpathApply(url.content, "//h3//a[@href]", function(x) xmlAttrs(x)[[1]])
Error in UseMethod("xpathApply") : 
no applicable method for 'xpathApply' applied to an object of class "XMLDocumentContent"

url.content からリンクを取得する最良の方法は何ですか?

4

1 に答える 1

6

class のオブジェクトを返さないように を試してcontent()ください:as="text"XMLDocumentContent

library(httr)
search.term="httr+package+daterange:%3A2456294-2456659"
url.name=paste0("https://www.google.com/search?q=",search.term)
url.get=GET(url.name)
url.content=content(url.get, as="text")
links <- xpathSApply(htmlParse(url.content), "//a/@href")
head(links,3)
# href 
# "https://www.google.com/webhp?tab=ww" 
# href 
# "https://www.google.com/search?q=httr%2Bpackage%2Bdaterange::2456294-2456659&um=1&ie=UTF-8&hl=en&tbm=isch&source=og&sa=N&tab=wi" 
# href 
# "https://maps.google.com/maps?q=httr%2Bpackage%2Bdaterange::2456294-2456659&um=1&ie=UTF-8&hl=en&sa=N&tab=wl"

アップデート：

Jake がコメントで指摘しているように、これも機能します。

url.get=GET(url.name)
links <- xpathSApply(htmlParse(url.get), "//a/@href")
于 2014-01-02T18:53:26.413 に答える