我一直在学习的一种方法是慢慢地研究其他人的代码,弄清楚他们做了什么。我在 GitHub 上找到了这段简洁的代码,它返回搜索词的搜索结果数量。
我理解这个函数的每一行,除了以“search.value”开头的那一行。这条线在做什么?我知道它需要一个带有数字的 html div 并提取数字,但对于我的生活,我不知道它是如何做到的。
任何帮助将非常感激。
require(RCurl)
require(XML)
google.counts<-function(s){
search.url<-paste("http://www.google.com/search?q=",gsub(" ","+",s),sep="")
search.html<-getURL(search.url)
parse.search<-htmlTreeParse(search.html,useInternalNodes = TRUE)
search.nodes<-getNodeSet(parse.search,"//div[@id='resultStats']")
search.value<-strsplit(xmlValue(search.nodes[[1]])," ",fixed=TRUE)[[1]][2]
return(as.numeric(gsub(",","",search.value,fixed=TRUE)))
}