R中XML包抓取网页分析

cyc

我需要抓取几个网页的帖子的发表时间，浏览数和点击数。

http://yuhang.19lou.com/forum-1655-thread-111581395810777813-1-1.html

http://www.waaku.com/InfoView6792299.html

R里面的XML返回怎么是空的，求指导~~[s:11]

library(XML)

library(RCurl)

data <- htmlTreeParse("http://www.waaku.com/InfoView6792299.html",

useInternalNodes = TRUE)

xpathSApply(data, "//div[@id='new6']", xmlValue)

cyc

求大神~~

Ihavenothing

回复第2楼的 cyc：

library(XML)<br />
dat = readLines("http://www.waaku.com/InfoView6792299.html")<br />
doc = htmlTreeParse(dat, asText = TRUE, useInternalNodes = TRUE)<br />
xpathSApply(xmlRoot(doc), "//div[@id='new6']", xmlValue)

</p>