RSelenium -网络抓取- Zepp -个人足球数据

Question

我有一个足球应用程序，跟踪我的数据，而我玩-但我想要一个自动的方式收集这些数据为自己。

下面是我正在尝试刮的页面的一个例子，尽管我似乎没有在RSelenium方面取得任何进展。

我可以做初步接触，并获得标题的网页，但似乎无法抓住任何东西以外的。

library(RSelenium)
remDr <- remoteDriver(remoteServerAddr = "127.0.0.1",
                      port = 4445L)
remDr$open(silent = TRUE)

remDr$navigate("http://sport.zepp.com/soccer/game?id=602f7c549c05de4254619ce2&uid=602dfa34286a8427b94ef43d")
remDr$getTitle()

我至少希望能够跟踪3.18m的“距离”，接近页面的顶部。有人能给我举个例子来说明我如何做到这一点吗？最后，我也希望能够得到该页的其余部分。

Answer 1

下面是一个可能的解决方案。

library(RSelenium)
driver <- rsDriver(browser=c("firefox"), port = 4445L)
remote_driver <- driver[["client"]]

remote_driver$navigate("http://sport.zepp.com/soccer/game?id=602f7c549c05de4254619ce2&uid=602dfa34286a8427b94ef43d")
DISTANCE<-remote_driver$findElement(using = 'css selector', value = 'div.ct-container:nth-child(1) > div:nth-child(2) > div:nth-child(2)')$getElementText()
print(DISTANCE)
[[1]]
[1] "5125"

KICKS<-remote_driver$findElement(using = 'css selector', value = '#SoccerGameApp > div > div:nth-child(2) > div:nth-child(2) > div > div:nth-child(2) > div > div.flt_r.ct-h-r')$getElementText()
print(KICKS)
[[1]]
[1] "21"

SPRINTS<-remote_driver$findElement(using = 'css selector', value = '#SoccerGameApp > div > div:nth-child(2) > div:nth-child(2) > div > div:nth-child(3) > div > div.flt_r.ct-h-r')$getElementText()
print(SPRINTS)
[[1]]
[1] "17"