我试图遍历10个网页并将所有数据连接到一个文件中。
以下是我的非工作代码。如何在所有10个页面中进行循环,并附加上一页下一页的数据?
library(XML)
library(plyr)
for(i in 1:10)
{
NHL <- htmlParse("http://www.hockey-reference.com/friv/dailyleaders.cgi?month=1&day=i&year=2014")
class(NHL)
NHL.tables <- readHTMLTable(NHL,stringAsFactors = FALSE)
length(NHL.tables)
head(rbind.fill(NHL.tables))
write.csv(NHL.tables, file = "NHLData.csv")
}
我认为这是一个拉数据的问题,一次一个URL,并在我去的时候将它绑定在一起,但它似乎不起作用。我确定我错过了一些简单的事情。有什么想法吗?谢谢。
答案 0 :(得分:1)
这应该让你接近。每页有两张桌子,我把最大的一张作为你想要的一张......
location