RSelenium网络抓取

Question

我正在尝试抓取一个网站，但是javascript给我带来了问题。我使用RSelenium到达我想要的页面，给出html，我可以解析它并获得我想要的数据。然而，这是我似乎无法解决的中间步骤。这就是我所拥有的：

library('RSelenium')
checkForServer()
startServer()
remDr <- remoteDriver(browserName="firefox", port=4444)
remDr$open(silent=T)
library('XML')
url <- "http://racing.hkjc.com/racing/Info/Meeting/Results/english/Local/20141012/ST/1"
remDr$navigate(url)
elem <- remDr$findElement(using="div id", value="results")  # PROBLEM HERE, CAN'T FIND A TAG THAT WORKS!
elemtxt <- elem$getElementAttribute("outerHTML")[[1]]  # possible continuation
elemxml <- htmlTreeParse(elemtxt, useInternalNodes=T)

(我关注的是页面上的大部分数据:结果表、上面的信息、红利表和赛车事件报告。但是有了elemxml之后，我知道如何实现这一点。)

非常感谢

Answer 1

类似于：

doc <- htmlParse(remDr$getPageSource()[[1]])
readHTMLTable(doc)

应该允许您访问html并处理包含的表。